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3 INT 13H Commands ; 





INT13H_OP_00_RESET_DISK_SYSTEM EQU 00h 
INT13H_OP_01_GET_DISK_STATUS EQU Olh 
INT13H_OP_08_GET_DRIVE_PARAMS EQU 08h 
INT13H_OP_09_INITIALIZE_DISK_TABLE EQU 09h 
INT13H_OP_OD_ALTERNATE_DISK_RESET EQU ODh 
INT13H_OP_10_TEST_DRIVE_READY EQU 10h 
INT13H_OP_11_RECALIBRATE EQU 11h 
INT13H_OP_12_SRAM_DIAGS EQU 12h 
INT13H_OP_14_CONTROLLER_DIAGS EQU 14h 
LAST_INT13H_OP EQU INT13H_OP_14_CONTROLLER_DIAGS 

¥ INT 13H Errors (returned in AH) a 
INT13H_STATUS_00_NO_ERROR EQU 000h 
INT13H_STATUS_01_BAD_COMMAND EQU 001h 
INT13H_STATUS_02_ADDR_MARK_NOT_FOUND EQU 002h 
INT13H_STATUS_04_SECTOR_NOT_FOUND EQU 004h 
INT13H_STATUS_07_BAD_DISK_PARAM_TABLE EQU 007h 
INT13H_STATUS_09_DMA_ACROSS_64K EQU 009h 
INT13H_STATUS_OA_BAD_SECTOR_FLAG EQU 00Ah 
INT13H_STATUS_OB_BAD_CYLINDER EQU OOBh 
INT13H_STATUS_10_ECC_ERROR EQU 010h 
INT13H_STATUS_11_ECC_FIXED EQU 011h 
INT13H_STATUS_20_CTRLR_ERROR EQU 020h 
INT13H_STATUS_27_NEED_RECALIBRATE EQU 027h ; Guess. Undocumented. 
INT13H_STATUS_28_UNKNOWN_ERROR EQU 028h ; Unknown bad sector error. 
INT13H_STATUS_40_SEEK_FATLURE EQU 040h 
INT13H_STATUS_80_TIMEOUT EQU 080h 
INT13H_STATUS_BB_UNDEFINED_ERROR EQU OBBh 
INT13H_STATUS_FF_SENSE_OP_FAILED EQU OFFh 


3 Interrupt vector table (at 0000:0000) 
; and BIOS Data Area (from 0000:0400) 




















ZEROSEG SEGMENT AT 0000H 
ORG 013H*4 
INT13H_OFFSET DW ? The disk services. We hook this 
INT13H_SEGMENT DW 2 and move the original handler over 
; to INT40H. 
ORG 019H*4 
INT19H_OFFSET DW ? Boot service. We hook this in order 
INT19H_SEGMENT DW 2: to try reading and running the 
hard disk boot sector first, then 
; falling back to the floppy. 
ORG 040H*4 
INT40H_OFFSET DW ? The original (floppy) disk service 
INT40H_SEGMENT DW 7: is relocated here. 
ORG 041H*4 
INT41H_OFFSET DW ? ; Data pointer, not code. Points to 
INT41H_SEGMENT DW ? ; disk geometry and parameters. 
ORG 0442h 
BDA_CONTROLLER_DATA_BUFFER_00 DB 2 ; This is the buffer used for 
BDA_CONTROLLER_DATA_BUFFER_01 DB id constructing commands for submission 
BDA_CONTROLLER_DATA_BUFFER_02 DB 2 into the disk controller, but also 
BDA_CONTROLLER_DATA_BUFFER_03 DB ? for reading the sense data on error. 
BDA_CONTROLLER_DATA_BUFFER_04 DB «3 ; When a INT13H function returns, 
BDA_CONTROLLER_DATA_BUFFER_05 DB ? ; the first byte here allways holds 
BDA_CONTROLLER_DATA_BUFFER_06 DB ? 7; the success/errror status. 
ORG 046Ch 
BDA_TIMER_COUNTER_LO DW 2 
BDA_TIMER_COUNTER_HI DW 2, 
ORG 0472h 
BDA_SOFT_RESET_FLAG DW ? 
BDA_LAST_OP_STATUS DB ? 
BDA_NUMBER_OF_HARD_DISKS DB ? 
ORG 7CO0H 
BOOT_SEC LABEL FAR 
ORG 7DFEh 
BOOT_SIG LABEL FAR 
ZEROSEG ENDS 
BIOSSEG SEGMENT AT OFOO0H 
ORG OFFFOH 
RESET_VEC LABEL FAR 
BIOSSEG ENDS 
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100 PAGE 

101 pocoo---------------------------------------------------- 
102 ¥ Variables and buffers used by the formatter 1 
103 ; utility. The segment is allocated by DOS . 
104 pococ---------------------------------------------------- 
105 

106 0000 FORMATTER_HEAP SEGMENT AT 1000H 
107 

108 0OOBO ORG 0O0BOh ; Some terminal I/O 
109 OOBO ?? SAVED_COLUMN DB ? ; bookkeeping routines 
110 OOB1 ?? SAVED_ROW DB 2 

111 O0B2 ?? READ_NUMBER_SAVED_AL DB 2 

112 00B3 ?? READ_NUMBER_SAVED_AH DB 2 

113 OOB4 ? PARSE_NUMBER_BUFFER DD = 

114 OOB8 ? READ_NUMBER_RESULT DW 2 

115 OOBA ?? READ_NUMBER_RESULT_LEN DB 2 

116 

117 01B9 ORG 01B9h ; Formatter variables 
118 01B9 ?? HARD_DISK_NUMBER DB S 

119 O1BA ?? READ_NUMBER_MIN_DIGITS DB 2 

120 01BB ?? READ_NUMBER_MAX_DIGITS DB 2 

121 01BC ?? DB 2 

122 O1BD ?? DB ire 

123 O1BE ?? BAD_POINTER DB 2 

124 O1BF ?? DB 2 

125 01C0 ?? CURSOR_LOCATION_OR_SOMETHING DB 2 

126 01C1 ?? DB ? 

127 01C2 ?? DB Ks 

128 01C3 ?? DB is 

129 01C4 ?? DB ? 

130 01C5 ?? DB ? 

131 01C6 ?? DB ? 

132 01C7 ?? DB ? 

133 01C8 2??? LAST_CYLINDER_NUMBER DW 2 

134 O1CA ?? DB 2 

135 01CB ?? DB o 

136 O1CC ?? LAST_HEAD_NUMBER DB 2 

137 O1CD ?? DB 2 

138 O1CE ???? VERIFY_PROGRESS_BUFFER DW 2 

139 01D0 ? VERIFY_PROGRESS_BUFFER_0 DW ica 

140 01D2 ? VERIFY_PROGRESS_BUFFER_1 DW 2 

141 01D4 ?? UNK_UNUSED_STH DB bs 

142 01D5 ?? CONTROL_BYTE DB 3 

143 01D6 ?? VERIFY_STH_2 DB 2: 

144 01D7 ?? INTERLEAVE DB 2. 

145 01D8 ?? DB ? 

146 01D9 ?? DB ? 

147 O1DA ???? CYLINDER_NUMBER DW 2 

148 01DC ?? HEAD_NUMBER DB io 

149 O1DD ?? DB 2 

150 O1DE ?? DB 2 

151 O1DF ?? DB 2 

152 0O1E0O ?? DB ? 

153 O1E1 ?? DB ? 

154 O1E2 ?? DB ics 

155 01E3 ???? CURRENT_BAD_ENTRY DW 3 

156 O1E5 ?? CURRENT_BAD_ENTRY_0O DB 2: 

157 O1E6 ?? CYLINDER_TABLE DB 2. 

158 O1E7 ?? DB ? 

159 O1E8 ?? DB ? 

160 O1E9 ?? DB ? 

161 O1EA ?? BAD_BLOCKS_TABLE_USED_SPACE DB irs 

162 O1EB ?? NUM_BAD_BLOCK_ENTRIES DB 2: 

163 O1EC 2??? UNK_VERIFY_STH DW 2 

164 O1EE ?? UNK_VERIFY_STH_O DB 2 

165 O1EF ???? UNK_VERIFY_UNUSED_1 DW 2 

166 O1F1 ?? DB ? 

167 O1F2 ?? DB is 

168 O01F3 ?? DB ? 

169 O1F4 ?? DB ? 

170 O1F5 ?? DB ? 

171 O1F6 ?? DB 2 

172 #O1F7 ?? DB ? 

173 0O1F8 2??? UNK_VERIFY_UNUSED_0 DW 2 

174 O1FA 2??? UNK_VERIFY_UNUSED DW 2 

175 

176 

177° +0400 ORG 0400h 
178 0400 ?? BAD_BLOCKS_TABLE DB 2 

179 

180 0700 ORG 0700h 
181 0700 ?? SECTOR_BUFFER DB 2 

182 

183 0701 FORMATTER_HEAP ENDS 

184 


185 
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186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 


= 0000 
0001 
0003 
0004 
0005 
0006 
0007 
0008 
000A 
000B 
000c 
= 000D 
000E 
OOOF 
OOEO 
00E3 
OOE4 
OOE5 
= 00E6 


= 0320 
0321 
0322 
= 0323 


0047 
004B 


0000 


0000 AA55 
0002 10 


0003 E9 0A17 R 


0015 
0015 EB 19 
0017 90 


0020 

0020 

0020 0267 
0022 04 
0023 0064 


0025 015E 


0027 07 
0028 01 
0029 04 
002A 09 
002B 09 
002c 00 00 00 00 
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000h 
001h 
003h 
004h 
005h 
006h 
007h 
008h 
OOAh 
0OBh 
00Ch 
00Dh 
OOEh 
0OFh 
OEOh 
OE3h 
OE4h 
OESh 
OE6h 


320h 


321h 
322h 
323h 


ROM length in 16-byte paragraphs 


Cylinder up to which reduced 
write current is used 
Cylinder from which write 
precompensation is used 


OP_00_TEST_DRIVE_READY EQU 
OP_01_RECALIBRATE EQU 
OP_03_READ_SENSE EQU 
OP_04_FORMAT_DRIVE EQU 
OP_05_VERIFY_SECTORS EQU 
OP_06_FORMAT_TRACK EQU 
OP_07_FORMAT_BAD_TRACK EQU 
OP_08_READ_SECTORS EQU 
OP_OA_WRITE_SECTORS EQU 
OP_OB_SEEK EQU 
OP_0C_INIT_DRV_PARM EQU 
OP_OD_READ_ECC_BURST_ERROR_LEN EQU 
OP_OE_READ_SECTOR_BUFFER EQU 
OP_OF_WRITE_SECTOR_BUFFER EQU 
OP_EO_SECTOR_BUFFER_DIAG EQU 
OP_E3_DRIVE_DIAG EQU 
OP_E4_CTRL_DIAG EQU 
OP_E5_READ_LONG EQU 
OP_E6_WRITE_LONG EQU 
; Controller I/O ports 
IO_PORT_320_DATA EQU 
IO_PORT_321_READ_STATUS_WRITE_RESET EQU 
IO_PORT_322_READ_CONFIG_WRITE_SELECT EQU 
IO_PORT_323_DMA_IRQ EQU 
DMA mode register 
; channel=3 | address increment 
; | demand mode | read/write 
DRQ3_READ EQU 
DRQ3_WRITE EQU 
Fs Main ROM image 
ROM SEGMENT 
ASSUME cs:ROM 
MAGIC DW OAA55h 
LENGTH DB 16 
jmp near ptr ROM_INIT 
ORG 015h 
jmp short FORMATTER 
nop 
ORG 020h 
INT41H_DATA: 
MAX_CYLS. DW 615 
MAX_HEADS DB 4 
RWC DW 100 
WPC DW 350 
ECC_LEN DB 7 
OPT_FLAGS DB 1 
TIMEOUT_STD DB 4 
TIMEOUT_FMT DB 9 
TIMEOUT_CHK DB 9 
—RESERVED DD 0 
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264 PAGE 

265 pocoo---------------------------------------------------- 
266 F Formatter utility * 
267 7 

268 3 Run it from PC DOS: 

269 ; >DEBUG 

270 ‘ -G=C800:15 

271 ; 

272 i Note the disasembly of the formatter has 

273 ? not been paid much attention to and the 

274 i quality probably reflects that. 2 
275 a So Se a Se ee ee 
276 

277 0030 FORMATTER PROC NEAR 

278 0030 1E push ds 

279 0031 07 pop es 

280 0032 OE push cs 

281 0033 1F pop ds 

282 ASSUME es:FORMATTER_HEAP, ds:ROM 

283 0034 BA O07BC R mov dx, offset STRING_FORMAT_WILL_DESTROY 
284 0037 E8 0755 R call PRINT_CRLF_STRING 

285 003A E8 04D5 R call ASK_CONFIRMATION 

286 003D 73 03 jne short READ_DRIVE_NUMBER 

287 003F E9 00F3 R jmp ERROR_EXIT 

288 

289 0042 READ_DRIVE_NUMBER: 

290 0042 BA O7F4 R mov dx, offset STRING_ENTER_DRIVE 
291 0045 E8 0755 R call PRINT_CRLF_STRING 

292 0048 26: C6 06 01BB R 01 mov es:READ_NUMBER_MAX DIGITS, 1 

293 O004E 26: C6 06 01BA R 01 mov es:READ_NUMBER_MIN_ DIGITS, 1 

294 0054 E8 0527 R call READ_NUMBER 

295 0057 26: Al OOB8 R mov ax, es:READ_NUMBER_RESULT 

296 005B 3C 00 cmp al, 0 

297 O005D 74 09 je short GOT_VALID_DRIVE_NUMBER 

298 OO5F 3C 01 cmp al, 1 

299 0061 74 05 je short GOT_VALID_DRIVE_NUMBER 

300 0063 E8 0765 R call DO_BEEP 

301 0066 EB DA jmp short READ_DRIVE_NUMBER 

302 

303 0068 GOT_VALID_DRIVE_NUMBER: 

304 0068 26: A2 01B9 R mov es:HARD_DISK_NUMBER, al 

305 006C 3c 00 cmp al, 0 

306 OO6E 75 00 jne short $+2 

307 0070 EB O1 jmp short A_BIT_FORWARD ; Why... 
308 0072 90 nop 

309 0073 E8 03DA R A_BIT_FORWARD: call READ_DRIVE_PARAMS_AND_MORE. 

310 0076 EB 01 jmp short YET_FURTHER 

311 0078 90 nop 

312 0079 E8 OOF8 R YET_FURTHER: call READ_BAD_BLOCKS_TABLE 

313 007C 73 03 jne short GOOD_BAD_BLOCKS_TABLE 

314 007E EB 73 jmp short ERROR_EXIT 

315 0080 90 nop 

316 

317 0081 GOOD_BAD_BLOCKS_TABLE: 

318 0081 BF 0700 R mov di, offset SECTOR_BUFFER 

319 0084 8B DF mov bx, di 

320 0086 BA 0080 mov dx, 80h 

321 0089 26: AO 01B9 R mov al, es:HARD_DISK_NUMBER 

322 008D OA DO or dl, al 

323 OO8F B9 0066 mov ex, 102 ; 510 / 5 
324 0092 FC cld 

325 

326 0093 FILL_SECTOR_BUFFER: ; First 510 bytes 
327 0093 B8 31C6 mov ax, 31C6h 

328 0096 26: 89 05 mov es:[di], ax 

329 0099 83 C7 02 add di, 2 

330 009C B8 638C mov ax, 638Ch 

331 OO9F 26: 89 05 mov es:[di], ax 

332 OOA2 83 C7 02 add di, 2 

333 OOA5 BO 18 mov al, 18h 

334 OOA7 26: 88 05 mov es:[di], al 

335 OOAA 47 inc di 

336 OOAB E2 E6 loop FILL_SECTOR_BUFFER 

337 OOAD B8 31C6 mov ax, 31C6h ; Last 2 bytes to 512 
338 OOBO 26: 89 05 mov es:[di], ax 

339 

340 OOB3 B8 OFO1 mov ax, OFO1h ; AH=OF Write sector buffer, AL=01 One sector 
341 OOB6 B9 0001 mov P=. Pee Be 

342 OOB9 CD 13 int 13h 

343 OOBB 80 FC 00 cmp ah, 0 

344 OOBE 74 09 je short WRITE_SUCCEEDED 

345 00CO BA 09A0 R mov dx, offset STRING_BEEP_SECTOR_WRITE_FAIL 
346 00C3 E8 0707 R call PRINT_MESSAGE_AND_DUMP_CONTROLLER_BUFFER 
347 OOC6 EB 1c jmp short PROCEED_REBOOTING 

348 00C8 90 nop 

349 

350 00c9 WRITE_SUCCEEDED: 

351 00C9 E8 04F6 R call READ_INTERLEAVE 

352 OOCC BA 091F R mov dx, offset STRING_CONFIRM_FORMAT 
353 OOCF E8 0755 R call PRINT_CRLF_STRING 

354 O0OD2 E8 0210 R call READ_YES_OR_NO 

355 O0D5 73 03 jne short START_FORMATTING 

356 OOD7 EB 1A jmp short ERROR_EXIT 

357 OOD9 90 nop 

358 

359 OODA START_FORMATTING: 

360 OODA E8 0425 R call DO_FORMAT 

361 OODD 72 05 je short PROCEED_REBOOTING 

362 OODF E8 030F R call DO_FORMAT_BAD 

363 OOE2 72 00 je short $+2 

364 O0E4 PROCEED_REBOOTING: 

365 OOE4 BA 0981 R mov dx, offset STRING_ANY_KEY_TO REBOOT 
366 OOE7 E8 0755 R call PRINT_CRLF_STRING 

367 OOEA B4 08 mov ah, 8 7; Keyboard input 
368 OOEC CD 21 int 21h 

369 OOEE EA FFFO ---- R jmp RESET_VEC 

370 OOF3 ERROR_EXIT: 

371 OOF3 B8 4C0O mov ax, 4C00h 

372 OOF6 CD 21 int 21h 

373 OOF8 FORMATTER ENDP 

374 


375 
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376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 


ooFs 
OOoF8 
OOFE 
0104 
0107 
010A 
010D 
010F 


0112 
0112 
0115 


0118 


0118 
011B 
011E 
0121 
0127 
012D 
0130 
0136 
0138 
013A 


013B 
013B 
013F 
0144 
0146 
0149 


014B 
014B 


014F 
014F 
0152 
0155 
0158 
015E 
0164 
0167 
016B 
0170 
0172 
0177 
0178 
017D 
O17F 
0184 
0186 
0189 


018B 
018B 
018E 


0190 
0190 
0194 
0197 
019c 
01A2 
01A4 


O1A7 
O1A7 
O1AA 
01AD 
01B0 
01B2 


01B5 
01B5 
01B8 


01BB 
01BB 
o1ic1 
01c3 
01C6 


o1c8 
o1c8 
01c9 
01CA 
O1CA 
01cB 
o1cc 


26: 
26: 


BA 
E8& 
E8& 
73 
E9 


BA 
E8& 


BA 
E8& 
E8& 


26: 
26: 


E8& 


26: 


75 
EB 
90 


26: 
26: 


77 
E8& 
EB 


26: 


BA 
E8& 
E8& 


26: 
26: 


E8& 


26: 
26: 


76 


26: 


41 


26: 


72 


26: 


2A 
80 
77 


E8& 
EB 


26: 


E8& 


26: 
26: 


73 
E9 


BA 
E8& 
E8& 
72 
E9 


BA 
E8& 


26: 


74 
E8& 
72 


F8& 


c3 


F9 
c3 


C6 06 01EA R 00 
C6 06 01EB R 00 
08B5 R 

0755 R 

0210 R 

03 

01BB R 

O8CA R 

0755 R 

O8EC R 

0755 R 

0795 R 

C6 06 01BB R 04 
C6 06 01BA R 02 
0527 R 

80 3E OOBA R 00 
03 

6D 

Al 00OB8 R 

39 06 01C8 R 

05 

0780 R 
cD 

A3 01DA R 

O8FB R 

0755 R 

0795 R 

C6 06 01BB R 02 
C6 06 01BA R O01 
0527 R 

Al 0OB8 R 

38 06 O1CC R 

19 

8B OE 01DA R 

3B OE 01C8 R 

11 


8A 26 01CC R 
EO 
Fc 01 

05 


0780 R 
BF 


A2 01DC R 

O1cC R 

FE 06 01EB R 
80 3E 01EB R CO 
11 

0118 R 


090A 
0755 
0210 
09 

0118 R 


naw 


089B R 
0755 R 


80 3E 01EB R 00 
05 

04D5 R 

02 


PAGE 

READ_BAD_BLOCKS_TABLE 
mov 
mov 
mov 
call 
call 
jne 
jmp 


DO_READ_DEFECTS: 
mov 
call 


READ_CYLINDER: 


mov 
call 
call 
mov 
mov 
call 
cmp 
jne 
jmp 
nop 


CYLINDER_WAS_READ: 
mov 
cmp 
ja 
call 
jmp 
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PROC NEAR 
es :BAD_BLOCKS_TABLE_USED_SPACE, 0 
es :NUM_BAD_BLOCK_ENTRIES, 0 

dx, offset STRING_ANY_DEFECTS 
PRINT_CRLF_STRING 

READ_YES_OR_NO 

short DO_READ_DEFECTS 
DEFECTS_READ_DONE 


dx, offset STRING_PRESS_RET_TO_END 
PRINT_CRLF_STRING 


dx, offset STRING_CYLINDER 
PRINT_CRLF_STRING 

MOVE_CURSOR 

es:READ_NUMBER_MAX DIGITS, 4 
es:READ_NUMBER_MIN_DIGITS, 2 
READ_NUMBER 

es :READ_NUMBER_RESULT_LEN, 0 ; 
short CYLINDER_WAS_READ 

short ENTRY_READ_DONE 


ax, es:READ_NUMBER_RESULT 
es:LAST_CYLINDER_NUMBER, ax 
short CYLINDER_CHECK_SUCCESSFUL 
BAD_ENTRY_BEEP 

short READ_CYLINDER 


CYLINDER_CHECK_SUCCESSFUL: 


mov 


READ_HEAD: 
mov 
call 
call 
mov 
mov 
call 
mov 


jbe 
mov 
inc 
cmp 
jb 

mov 
sub 


cmp 
ja 


BAD_HEAD_READ_AGAIN: 
call 
jmp 


HEAD_READ_SUCCESSFUL: 
mov 
call 
inc 
cmp 
jnb 
jmp 


ENTRY_READ_DONE: 
mov 
call 
call 
je 
jmp 


DEFECTS_TABLE_FULL: 
mov 
call 


DEFECTS_READ_DONE: 
cmp 
je 
call 
je 


SUCCESS: 
cle 
ret 
ABORTED: 
stc 
ret 
READ_BAD_BLOCKS_TABLE 


es:CYLINDER_NUMBER, ax 


dx, offset STRING_HEAD 
PRINT_CRLF_STRING 
MOVE_CURSOR 
es:READ_NUMBER_MAX DIGITS, 2 
es:READ_NUMBER_MIN DIGITS, 1 
READ_NUMBER 

ax, es:READ_NUMBER_RESULT 
es:LAST_HEAD_NUMBER, al 
short BAD_HEAD_READ_AGAIN 
cx, es:CYLINDER_NUMBER 

cx 

cx, es:LAST_CYLINDER_NUMBER 
short HEAD_READ_SUCCESSFUL 
ah, es: LAST_HEAD_NUMBER 

ah, al 

eh; 2 

short HEAD_READ_SUCCESSFUL 


BAD_ENTRY_BEEP 
short READ_HEAD 


es:HEAD_NUMBER, al 
PROCESS_BAD_BLOCKS_ENTRY 

es :NUM_BAD_BLOCK_ENTRIES 
es:NUM_BAD_BLOCK_ENTRIES, O0COh 
short DEFECTS_TABLE_FULL 
READ_CYLINDER 


Empty input? 


dx, offset STRING_ASK_MORE_DEFECT_ENTRIES 


PRINT_CRLF_STRING 
READ_YES_OR_NO 

short DEFECTS_READ_DONE 
READ_CYLINDER 


dx, offset STRING_NO_MORE_DEFECTS 
PRINT_CRLF_STRING 


es:NUM_BAD_BLOCK_ENTRIES, 0 
short SUCCESS 
ASK_CONFIRMATION 

short ABORTED 


ENDP 
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471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 


01cc 
oicc 
O1lcF 
01D3 
01D7 
01DA 
o1pc 
01DE 
01E0 
O1E6 
O1E6 
O1EA 
01EE 
01F2 
O1F5 
01F8 
O1FA 
O1FF 
0201 
0204 
0208 
020E 
020F 
0210 


0210 
0210 
0213 
0213 
0215 
0217 
0218 
021A 
021c 
021E 
0220 
0221 
0221 
0224 
0227 
0229 
0229 
022A 
022c 
022E 
0230 
0231 
0232 
0232 
0234 
0236 
0237 
0238 


0238 
0238 
023c 
0241 
0242 


0242 
0242 
0244 
0248 
024D 
024E 


BB 


26: 
26: 


80 
Bl 
D2 
73 


26: 


26: 
26: 
26: 


E8& 
BB 
33 


26: 


03 


26: 
26: 
26: 


Fs 
c3 


E8& 


B4 
cD 
50 
B4 
cD 
3c 
74 
58 


E8& 
E8& 
EB 


58 
24 
3c 
75 
F8 
c3 


3c 
75 
F9 
c3 


26: 
26: 


c3 


33 


26: 
26: 


c3 


PAGE 


PROCESS_BAD_BLOCKS_ENTRY 


Page 


1-6 
01-06-88 


PROC NEAR 


O1E6 R mov bx, offset CYLINDER_TABLE 
Al 01DA R mov ax, es:CYLINDER_NUMBER 
88 47 03 mov es: [bx+3], al 
E4 07 and ah, 7 
06 mov el, 6 
E4 shl ah, cl 
06 jnb short HDD 
80 OE 01DC R 80 or es:HEAD_NUMBER, 80h 
HDD: 
88 67 02 mov es: [bx+2], ah 
AO 01DC R mov al, es:HEAD_NUMBER 
88 47 01 mov es: [bx+1], al 
0451 R call FORMAT_BAD_BLOCK_ENTRY 
0400 R mov bx, offset BAD_BLOCKS_TABLE 
cg xor Cm, ae 
8A OE O1EA R mov cl, es:BAD_BLOCKS_TABLE_USED_SPACE 
Dg add bx, cx 
89 07 mov es:[bx], ax 
88 57 02 mov es: [bx+2], dl 
80 06 O1EA R 04 add es:BAD_BLOCKS_TABLE_USED_SPACE, 4 
cle 
ret 
PROCESS_BAD_BLOCKS_ENTRY ENDP 
READ_YES_OR_NO PROC NEAR 
06D3 R call READ_CURSOR_POS 
READ_ANSWER: 
01 mov ah, 1 ; Read keyboard 
21 int 21h 
push ax 
0s mov ah, 8 ; Read, no echo 
21 int 21h 
oD cmp al, ODh j <ENTER> 
09 je short CONFIRMED_ENTER 
pop ax 
BAD_ANSWER: 
0765 R call DO_BEEP 
O6EE R call SET_CURSOR_POS 
EA jmp short READ_ANSWER 
CONF IRMED_ENTER: 
pop ax 
5F and al, 5Fh 
59 cmp el, *F* 
02 jne short ANSWER_NO 
cle 
ret 
ANSWER_NO: 
4E cmp ‘615.0 
EB jne short BAD_ANSWER 
stc 
ret 
READ_YES_OR_NO ENDP 
STORE_CURRENT_BAD_ENTRY PROC NEAR 
A3 01E3 R mov es:CURRENT_BAD_ENTRY, ax 
88 16 01E5 R mov es:CURRENT_BAD_ENTRY_O, dl 
ret 
STORE_CURRENT_BAD_ENTRY ENDP 
LOAD_CURRENT_BAD_ENTRY PROC NEAR 
D2 xor dx, dx 
Al 01E3 R mov ax, es:CURRENT_BAD_ENTRY 
8A 16 01E5 R mov dl, es:CURRENT_BAD_ENTRY_0O 
ret 
LOAD_CURRENT_BAD_ENTRY ENDP 
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546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 


024E 
024E 
0251 
0254 
025B 
025E 
0260 


0262 
0262 
0263 


0264 
0267 
026A 
026c 
026F 


0271 
0274 
0276 
0279 
027B 
027E 


0280 
0283 
0285 
0288 
028A 
028D 
028F 
0292 
0294 
0295 
0296 
0299 
029c 
029D 


029E 
029E 
029F 
02A0 
02A3 
02A5 
02A8 
O2AD 
02B2 
02B4 
O2B6 
02B8 
02BA 


02BC 
02BC 
02BD 
02BE 
02c2 
02c5 
02C7 
02CB 
02D0 
02D2 
02D4 
02D6 
O2DA 
02DE 
02E0 
02E4 


02E7 
02E7 
02E8 
02E9 


02EC 
02EC 
02ED 
02EE 
02F1 
02F4 
02F6 


02F7 
O02F7 
02FA 
02FB 
02FCc 


O02FE 
02FE 
0304 
0307 
030A 
030D 
030E 
030F 


BA 
E8& 


26: 


E8& 
33 
33 


50 
52 


E8& 
B8& 
B4 
BB 
cD 


80 
74 
80 
74 
80 
74 


80 
74 
80 
74 
80 
74 
80 
74 
5A 
58 
BA 
E8& 
F9 
c3 


5A 
58 
BO 
03 
80 


26: 
26: 


3A 
77 
3B 
77 
EB 


50 
52 


26: 


BO 
03 


26: 
26: 


3B 
72 
2B 


26: 
26: 


04 


26: 


E8& 


5A 
58 
E9 


5A 
58 
E8& 
E8& 
73 
c3 


E8& 
50 
52 
EB 


26: 


E8& 
BA 
E8& 
F8& 
c3 


087B R 

0755 R 

C7 06 01FA R 0000 
036D R 

D2 

co 


0496 R 
0011 
04 
0200 
13 


Fc 00 
28 
Fc 11 
23 
FC OB 
1E 


Fc 10 
67 
FC 02 
62 
FC 04 
5D 
FC 28 
58 


0834 R 
0707 R 


0011 

c1 

D2 00 

8B OE O1EC R 
8A 1E 01EE R 
DA 

06 

cs 

02 

42 


Al O1FA R 
0011 

c1 

A3 O1FA R 
8B OE O1F8 R 
c1 

13 

c1 

A3 01FA R 
AO O1EF R 
05 

A2 01EF R 
039E R 


0262 R 


0238 R 
0350 R 
o1 


0242 R 


AO 


C6 06 O1EF R 64 
039E R 
088A R 
0755 R 





PAGE 
F The Formatter Victor V86P Hard Drive ROM 
i has verification neutered. The bad blocks 
3 had to be entered manually. 
i The disassembly quality of these unreachable 
; routines is thus even lower. Sorry. 
UNUSED_VERIFY PROC NEAR 
mov dx, offset STRING_VERIFYING 
call PRINT_CRLF_STRING 
mov es:UNK_VERIFY_UNUSED, 0 
call UNK_VERIFY_2 
xor dx, dx 
xor ax, ax 
VERIFY_NEXT: 
push ax 
push dx 
call CURRENT_BAD_ENTRY_TO_INT13H_PARAMS 
mov ax, 17 Verify 17 sectors 
mov ah, 4 Verify sectors 
mov bx, 512 ; 512 bytes 
int 13h 
cmp ah, INT13H_STATUS_00_NO_ERROR 
je short VERIFY_FOUND_GOOD 
cmp ah, INT13H_STATUS_11_ECC_FIXED 
je short VERIFY_FOUND_GOOD 
cmp ah, INT13H_STATUS_0B_BAD_CYLINDER 
je short VERIFY_FOUND_GOOD 
cmp ah, INT13H_STATUS_10_ECC_ERROR 
je short VERIFY_FOUND_BAD 
cmp ah, INT13H_STATUS_02_ADDR_MARK_NOT_FOUND 
je short VERIFY_FOUND_BAD 
cmp ah, INT13H_STATUS_04_SECTOR_NOT_FOUND 
je short VERIFY_FOUND_BAD 
cmp ah, INT13H_STATUS_28_UNKNOWN_ERROR 
je short VERIFY_FOUND_BAD 
pop dx 
pop ax 
mov dx, offset STRING_VERIFY_FAILED 
call PRINT_MESSAGE_AND_DUMP_CONTROLLER_BUFFER 
stc 
ret 


pop dx 

pop ax 

mov ex, 17 

add ax, cx 

adc dl, 0 

mov cx, es:UNK_VERIFY_STH 
mov bl, es:UNK_VERIFY_STH_0O 
cmp bl, dl 

ja short VERIFY_NOT_DONE_YET 
cmp cx, ax 

ja short VERIFY_NOT_DONE_YET 
jmp short VERIFY_DONE 


VERIFY_NOT_DONE_YET: 


push ax 

push dx 

mov ax, es:UNK_VERIFY_UNUSED 

mov ex, 11h 

add ax, cx 

mov es:UNK_VERIFY_UNUSED, ax 

mov cx, es:UNK_VERIFY_UNUSED_0O 

cmp ax, Cx 

jb short GO_VERIFY_NEXT 

sub ax, cx 

mov es:UNK_VERIFY_UNUSED, ax 

mov al, byte ptr es:UNK_VERIFY_UNUSED_1 
add al, 5 

mov byte ptr es:UNK_VERIFY_UNUSED_1, al 


call VERIFY_PROGRESS 


GO_VERIFY_NEXT: 


pop dx 
pop ax 
jmp VERIFY_NEXT 


VERIFY_FOUND_BAD: 


pop dx 

pop ax 

call STORE_CURRENT_BAD_ENTRY 
call FORMAT _BAD_TRACK 

jne short BAD_FORMAT_SUCCESSFUL 
ret 


BAD_FORMAT_SUCCESSFUL: 


call LOAD_CURRENT_BAD_ENTRY 
push ax 
push dx 
jmp short VERIFY_FOUND_GOOD 
VERIFY_DONE: 
mov byte ptr es:UNK_VERIFY_UNUSED_1, 64h 
call VERIFY_PROGRESS 
mov dx, offset STRING_VERIFY_COMPLETE 
call PRINT_CRLF_STRING 
cle 
ret 
UNUSED_VERIFY ENDP 
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656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 


030F 
030F 
0315 
0317 
031A 
031D 
0320 


0326 
0326 
032A 
032F 
0331 
0334 
0338 
033B 
033c 
033F 
0341 
0342 


0343 
0343 
0344 
0347 
034Cc 


034E 
034E 
034F 
0350 


0350 
0350 
0353 
0356 
0358 
035c 
035E 
0361 
0363 
0366 
0369 
036A 
036B 
036B 
036C 
036D 


036D 
036D 
0371 
0373 
0378 
037A 
037D 
037F 
0382 
0384 
0388 
038E 
0391 
0394 
0398 
039D 
039E 


039E 
039E 
03A2 
03A7 
O3AA 
O3AD 
03B1 
03B3 
03B7 
03B9 
03BC 
O3BF 
03c2 
03c2 
03C6 
03c8 
03c9 
03CA 
03cc 
03cc 
03cD 
03CE 


03CF 
03D2 


03D3 
03D6 
03D9 
03DA 


26: 


74 
BA 
E8& 
BB 


26: 


26: 
26: 


74 


26: 
26: 


E8& 
53 
E8& 
73 
5B 
c3 


5B 
83 


26: 


EB 


F8& 
c3 


E8& 
E8& 
B4 


26: 


cD 
80 
74 
BA 
E8& 
F9 
c3 


F8& 
c3 


26: 


33 


26: 


F7 
BO 
F7 
BO 
F7 


26: 
26: 


E8& 
E8& 


26: 
26: 


c3 


26: 
26: 


E8& 
E8& 


26: 


32 


26: 


33 
E8& 
BE 
BO 


26: 


75 
46 
49 
EB 


1E 
06 
1F 


E8& 
1F 


BA 
E8& 
c3 


80 3E 01EB R 00 
37 

O9EC R 

0755 R 

0400 

C6 06 01BE R 00 


AO 01BE R 
3A 06 01EB R 
1D 

8B 07 

8A 57 02 
0238 R 


0350 R 
02 


c3 04 
FE 06 01BE R 
Ds 


0242 R 

0496 R 

06 

AO 01D7 R 

13 
FC 00 

08 

081c R 

0707 R 

Al 01C8 R 
co 

8A OE 01CC R 
El 

0011 
El 

0014 
Fl 

A3 01F8 R 
C6 06 O1EF R 00 
06D3 R 


076C R 
A2 00B2 R 
88 26 00B3 R 


AO 00B2 R 
8A 26 00B3 R 
0776 R 
O6EE R 

AO O1EF R 
E4 

A3 01D6 R 
D2 

0626 R 
O1CF R 
0004 


80 3c 20 
04 


F6 


OB3C R 


099C R 
074C R 
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DO_FORMAT_BAD 


je 
mov 
call 
mov 
mov 


FORMAT_TRACK: 
mov 


je 
mov 
mov 
call 
push 
call 
jne 
pop 
ret 


NEXT_TRACK: 
Pop 
add 
anc 
jmp 


FORMAT _BAD_DONE: 
cle 
ret 

DO_FORMAT_BAD 


FORMAT _BAD_TRACK 
call 
call 
mov 
mov 
int 
cmp 
je 
mov 
call 
stc 
ret 


01-06-88 


PROC NEAR 
es:NUM_BAD_BLOCK_ENTRIES, 0 

short FORMAT_BAD_DONE 

dx, offset STRING_PROCESSING_DEFECTS 
PRINT_CRLF_STRING 

bx, 400h 

es:BAD_POINTER, 0 


al, es:BAD_POINTER 

al, es:NUM_BAD_BLOCK_ENTRIES 
short FORMAT_BAD_DONE 

ax, es: [bx] 

dl, es: [bx+2] 
STORE_CURRENT_BAD_ENTRY 

bx 

FORMAT _BAD_TRACK 

short NEXT_TRACK 

bx 


bx 

bx, 4 

es: BAD_POINTER 
short FORMAT_TRACK 


ENDP 


PROC NEAR 
LOAD_CURRENT_BAD_ENTRY 
CURRENT_BAD_ENTRY_TO_INT13H_PARAMS 


ah, 6 ; Format bad track 
al, es: INTERLEAVE 

13h 

ah, 0 


short BAD_TRACK_FORMAT_SUCCESSFUL 
dx, offset STRING_BAD_SECTOR_FAILED 
PRINT_MESSAGE_AND_DUMP_CONTROLLER_BUFFER 


BAD_TRACK_FORMAT_SUCCESSFUL: 


cle 
ret 
FORMAT_BAD_TRACK 


UNK_VERIFY_2 
mov 
xor 
mov 
mul 
mov 
mul 
mov 
div 
mov 
mov 
call 
call 
mov 
mov 
ret 

UNK_VERIFY_2 


VERIFY_PROGRESS 
mov 
mov 
call 
call 
mov 
xor 
mov 
xor 
call 
mov 
mov 
PROGRESS_ANOTHER_CHAR: 
cmp 
jne 
inc 
dec 
jmp 
PROGRESS_DONE: 
push 
push 
pop 
ASSUME 
call 
pop 
ASSUME 
mov 
call 
ret 
VERIFY_PROGRESS 


ENDP 


PROC NEAR 

ax, es:LAST_CYLINDER_NUMBER 
cx, Cx 

cl, es: LAST_HEAD_NUMBER 

cx 

ex, 17 

cx 

cx, 14h 

cx 

es:UNK_VERIFY_UNUSED_O, ax 
byte ptr es:UNK_VERIFY_UNUSED_1, 0 
READ_CURSOR_POS 
LOAD_CURSOR_POS 
es:READ_NUMBER_SAVED_AL, al 
es:READ_NUMBER_SAVED_AH, ah 


ENDP 


PROC NEAR 

al, es:READ_NUMBER_SAVED_AL 

ah, es:READ_NUMBER_SAVED_AH 
STORE_CURSOR_POS 

SET_CURSOR_POS 

al, byte ptr es:UNK_VERIFY_UNUSED_1 
ah, ah 

word ptr es:VERIFY_STH_2, ax 

dx, dx 

VERIFY_PROGRESS_STH 

si, (offset VERIFY_PROGRESS_BUFFER+1) 
cx, 4 


byte ptr es:[si], ' ’ 

short PROGRESS_DONE 

si 

cx 

short PROGRESS_ANOTHER_CHAR 


ds 

es 

ds 

ds : FORMATTER_HEAP 
PRINT_CX_CHARS_FROM_DS_SI 
ds 

ds : ZEROSEG 

dx, offset STRING_PERCENT 
PRINT_STRING_NO_CRLF 


ENDP 
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759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 


03DA 
O3DA 
03Dc 
O3DF 
03E1 
03E6 
03E8 
03EB 
03ED 
O3EF 
O3F1 
03F3 


O3F6 
03F7 
03F9 
03FC 
03FD 


O3FF 
0404 
0406 
0407 
0409 
040E 
0410 
0412 
0414 
0416 
0419 
041B 
041F 
0424 
0425 


0425 
0425 
042B 
042E 
0431 
0433 
0435 
0439 
043Cc 
043F 
0441 
0444 
0447 
0448 
0449 
0449 
044c 
044F 
0450 
0451 


0451 
0451 
0452 
0453 
0455 
0459 
045D 
045F 
0461 
0465 
0468 
046A 
046C 
046E 
0470 
0475 
0477 
047B 
047F 
0481 
0484 
0486 
048A 
048E 
0490 
0493 
0494 
0495 
0496 


B4 
E8& 
FE 


26: 


8A 
80 
Bl 
D2 
8A 
8A 
83 


51 
B4 
E8& 
59 
03 


26: 


8B 
48 
33 


26: 


32 
F7 
FE 
03 
BO 
F7 


26: 
26: 


c3 


26: 


BA 
E8& 
B6 
B4 


26: 


E8& 
80 
74 
BA 
E8& 
F9 
c3 


BA 
E8& 
Fs 
c3 


53 
51 
33 


26: 
26: 


Bl 
D2 


26: 


80 
OA 
Bl 
D2 
33 


26: 


F7 


26: 


81 
03 
BO 
F7 


26: 


81 
03 
83 
59 
5B 
c3 


08 

06C5 R 
cé 

88 36 O1CC R 
D1 
E2 
06 
EA 
cD 
EA 
c1 02 


co 


FE 
06C5 R 


CA 


89 OE 01C8 R 
‘CL 


D2 

8A OE 01CC R 
ED 

El 

co 

c1 

0011 

El 

A3 01EC R 

88 16 O1EE R 


C6 06 01EA R 00 
085c R 


0755 R 

00 

07 

AO 01D7 R 
06C5 R 
FC 00 

08 

080D R 
0707 R 
086B R 
0755 R 
co 

8A 47 03 
8A 67 02 
o1 
EC 

8A 4F 01 
El 80 
El 

05 
EC 
cg 

8A OE 01CC R 
El 


8A 4F 01 
El 003F 
c1 
0011 
El 

8A 4F 02 
El 003F 
c1 
D2 00 
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READ_DRIVE_PARAMS_AND_MORE. PROC NEAR 
mov ah, 8 F 
call INT13H_FOR_CHOSEN_DRIVE 
inc dh 
mov es:LAST_HEAD_NUMBER, dh 
mov dl, cl 
and dl, OCOh 
mov Gi; 6 
shr dl, cl 
mov el, ch 
mov ch, dl 
add cx, 2 
push cx 
mov ah, OFEh F 
call INT13H_FOR_CHOSEN_DRIVE ; 
pop cx 
add cx, dx 
mov es:LAST_CYLINDER_NUMBER, cx 
mov ax, Cx 
dec ax 
xor dx, dx 
mov cl, es:LAST_HEAD_NUMBER 
xor ch, ch 
mul cx 
dec cl 
add ax, cx 
mov ex, 11h 
mul cx 
mov es:UNK_VERIFY_STH, ax 
mov es:UNK_VERIFY_STH_O, dl 
ret 
READ_DRIVE_PARAMS_AND_MORE. ENDP 
DO_FORMAT PROC NEAR 
mov es:BAD_BLOCKS_TABLE_USED_SPACE, 0 
mov dx, offset STRING_FORMATTING 
call PRINT_CRLF_STRING 
mov dh, 0 
mov ah, 7 ; Format drive 
mov al, es: INTERLEAVE ; Interleave 
call INT13H_FOR_CHOSEN_DRIVE 
cmp ah, 0 
je short FORMAT_DONE 
mov dx, offset STRING_FORMAT_FAILED 
call PRINT_MESSAGE_AND_DUMP_CONTROLLER_BUFFER 
stc 
ret 
FORMAT_DONE : 
mov dx, offset STRING_FORMAT_COMPLETE 
call PRINT_CRLF_STRING 
cle 
ret 


DO_FORMAT 


FORMAT _BAD_BLOCK_ENTRY 
push 
push 
xor 
mov 
mov 
mov 
shr 
mov 
and 
or 
mov 
shr 
xor 
mov 
mul 
mov 
and 
add 
mov 
mul 
mov 
and 
add 
adc 
pop 
pop 
ret 

FORMAT _BAD_BLOCK_ENTRY 


ENDP 

PROC NEAR 

bx 

cx 

ax, ax 

al, es: [bx+3] 
ah, es: [bx+2] 
el, 1 

ah, cl 

cl, es: [bx+1] 
cl, 80h 

ah, cl 

GL, 3 

ah, cl 

cx, CX 

cl, es: LAST_HEAD_NUMBER 
cx 

cl, es: [bx+1] 
cx, 3Fh 

ax, Cx 

cx, 11h 

cx 

cl, es: [bx+2] 
cx, 3Fh 

ax, Cx 

dx, 0 

cx 

bx 

ENDP 


Get drive parameters 


Undocumented disk function 
Perhaps this is pointless? 


IBM Personal Computer Assembler 


Version 2.00 


Victor V86P Hard Disk Controller BIOS (2793VG.10010688) 


849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 


0496 
0496 
0497 
0498 
049A 
049E 
O4A1 
04A3 
O4A5 
O4A6 
O4A7 
04A9 
O4AA 
O4AC 
O4AE 
04B0 
04B3 
04B5 
04B7 
04B9 
04BB 
04cO 
04c3 
04c4 
04Cc6 
04c9 
04CA 
04cD 
04CF 
04D1 
04D2 
04D4 
04D5 


04D5 
04D5 
04D8 
04DB 
04DE 
04DE 
04E1 
04E3 
04E5 
O4E7 
O04E9 
O4EA 
04EB 
04EB 
O4ED 
O4EF 
O4F2 
04F4 
O4F4 
O4F5 
O4F6 


O4F6 
O4F6 
04F9 
04F9 
O04FC 
O4FF 
0502 
0508 
050E 
0511 
0515 
0517 
0519 
051B 
051D 
0521 
0522 
0522 
0525 
0527 


50 
52 
33 


26: 


BO 
F7 
8B 
5A 
58 
F7 
50 
8B 
Bl 
32 
80 
F6 
FE 
8A 
8A 


26: 


80 
58 
8A 
80 
51 
BO 
D2 
73 
59 
OA 
c3 


BA 
E8& 
E8& 


E8& 
B4 
cD 
3c 
75 
F9 
c3 


3c 
74 
E8& 
EB 


F8 
c3 


E8& 


E8& 
BA 
E8& 


26: 
26: 


E8& 


26: 


3c 
72 
3c 
77 


26: 


c3 


E8& 
EB 


co 

AO O1icc R 
0011 

El 

cs 


Fl 


c2 
11 
ED 
El 3F 
Fl 
c4 
cc 
FO 
8A 16 01B9 R 
CA 80 


E8& 

E4 07 

0006 

E4 

00 

cc 

0953 R 
0755 R 
06D3 R 
O6EE R 

08 

21 

1B 

02 

oD 

05 

0765 R 

EA 

06D3 R 
O6EE R 
09B5 R 
0755 R 

C6 06 01BB R 02 
C6 06 01BA R 01 
0527 R 

Al 0OB8 R 
o1 

09 

10 

05 

A2 01D7 R 
0765 R 

D2 


PAGE 
CURRENT_BAD_ENTRY_TO_INT13H_PARAMS PROC NEAR 
push ax 
push dx 
xor ax, ax 
mov al, es: LAST_HEAD_NUMBER 
mov ex, 11h 
mul cx 
mov cx, ax 
pop dx 
pop ax 
div cx 
push ax 
mov ax, dx 
mov Gk, 22h: 
xor ch, ch 
and cl, 3Fh 
div cl 
inc ah 
mov cl, ah 
mov dh, al 
mov dl, es:HARD_DISK_NUMBER 
or dl, 80h 
pop ax 
mov ch, al 
and ah, 7 
push cx 
mov cx, 6 
shl ah, cl 
jnb short $+2 
pop cx 
or cl, ah 
ret 


CURRENT_BAD_ENTRY_TO_INT13H_PARAMS 


ASK_CONFIRMATION 
mov 
call 
call 

READ_KEY_RESPONSE: 
call 
mov 
int 
cmp 
jne 
stc 
ret 

NOT_ESC: 
cmp 
je 
call 
jmp 

CONF IRMED_WITH_ENTER: 
cle 
ret 

ASK_CONFIRMATION 


READ_INTERLEAVE 
call 

READ_INTERLEAVE_NUMBER: 
call 
mov 
call 
mov 
mov 
call 
mov 
cmp 
jb 
cmp 
ja 
mov 
ret 


WRONG_INTERLEAVE_NUMBER: 


call 
jmp 
READ_INTERLEAVE 


Page 


1-10 
01-06-88 


PROC NEAR 
dx, 
PRINT_CRLF_STRING 
READ_CURSOR_POS 


SET_CURSOR_POS 


ah, 8 
21h 
al, 1Bh 


short NOT_ESC 


al, ODh 


ENDP 


Read key, 


<ESC> 


<ENTER> 


short CONFIRMED_WITH_ENTER 


DO_BEEP 


short READ_KEY_RESPONSE 


ENDP 


PROC NEAR 
READ_CURSOR_POS 


SET_CURSOR_POS 
dx, 
PRINT_CRLF_STRING 


es: READ_NUMBER_MAX_ DIGITS, 
es :READ_NUMBER_MIN_DIGITS, 


READ_NUMBER 
ax, 
al, 1 


es : READ_NUMBER_RESULT 


offset STRING_INTERLEAVE 


2 
1 


short WRONG_INTERLEAVE_NUMBER 


al, 10h 


short WRONG_INTERLEAVE_NUMBER 


es: INTERLEAVE, al 


DO_BEEP 


short READ_INTERLEAVE_NUMBER 


ENDP 


offset STRING_PRESS_RET_TO_PROCEED 


no echo 
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930 PAGE 

931 0527 READ_NUMBER PROC NEAR 

932 0527 E8 06D3 R call READ_CURSOR_POS 

933 052A E8 076C R call LOAD_CURSOR_POS 

934 052D 26: 88 26 00B3 R mov es :READ_NUMBER_SAVED_AH, ah 

935 0532 26: A2 00B2 R mov es :READ_NUMBER_SAVED_AL, al 

936 0536 BB 00B4 R mov bx, offset PARSE_NUMBER_BUFFER 
937 0539 B9 0000 mov cx, 0 

938 053C 26: C6 06 01CO R 00 mov es :CURSOR_LOCATION_OR_SOMETHING, 0 
939 0542 READ_NEXT_KEY: 

940 

941 0542 B4 01 mov ah, 1 ; Read key 
942 0544 CD 21 int 21h 

943 0546 3C OD cmp al, ODh 7; <ENTER> 
944 0548 74 3F je short ENTER_PRESSED 

945 054A 3C 08 cmp al, 8 

946 054C 75 10 jne short NOT_BACKSPACE 

947 O54E E8 065C R call BACKSPACE_WIPE_WITH_SPACE 

948 0551 26: FE OE 01C0O R dec es : CURSOR_LOCATION_OR_SOMETHING ; Move cursor back 
949 0556 4B dec bx 

950 0557 83 E9 01 sub ex, 1 

951 O55A 72 5F jb short BAD_INPUT ; Reached column -1? 
952 O55C EB E4 jmp short READ_NEXT_KEY 

953 O55E NOT_BACKSPACE: 

954 O55E 26: 3A OE 01BB R cmp cl, es:READ_NUMBER_MAX DIGITS 

955 0563 74 56 je short BAD_INPUT 

956 0565 26: 88 07 mov es: [bx], al 

957 0568 26: AO 01CO R mov al, es:CURSOR_LOCATION_OR_SOMETHING 
958 O056C FE CO inc al 

959 O56E 26: A2 01CO R mov es :CURSOR_LOCATION_OR_SOMETHING, al 
960 0572 26: 80 3E 01BA R 03 cmp es:READ_NUMBER_MIN_DIGITS, 3 

961 0578 75 OB jne short NEXT_CHARACTER 

962 O57A 26: 80 3E 01CO R 01 cmp es :CURSOR_LOCATION_OR_SOMETHING, 1 
963 0580 75 03 jne short NEXT_CHARACTER 

964 0582 E8 O5DC R call UPDATE_CURSOR_AND_WIPE 

965 0585 NEXT_CHARACTER: 

966 0585 43 inc bx 

967 0586 41 inc cx 

968 0587 EB B9 jmp short READ_NEXT_KEY 

969 0589 ENTER_PRESSED: 

970 0589 26: AO 01CO R mov al, es:CURSOR_LOCATION_OR_SOMETHING 
971 O58D 26: A2 OOBA R mov es :READ_NUMBER_RESULT_LEN, al 

972 0591 26: 80 3E 01BA R 01 cmp es:READ_NUMBER_MIN_DIGITS, 1 

973 0597 74 OB je short ONE_DIGIT 

974 0599 26: 80 3E 01CO R 00 cmp es:CURSOR_LOCATION_OR_SOMETHING, 0 
975 O59F 74 18 je short ALL_GOOD 

976 O5A1 EB 0C jmp short MORE_THAN_ONE_DIGIT 

977 O5A3 90 nop 

978 O5A4 ONE_DIGIT: 

979 O5A4 26: 80 3E 01CO R 00 cmp es :CURSOR_LOCATION_OR_SOMETHING, 0 
980 OS5AA 75 03 jne short MORE_THAN_ONE_DIGIT 

981 O5AC EB OD jmp short BAD_INPUT 

982 O5AE 90 nop 

983 OS5AF MORE_THAN_ONE_DIGIT: 

984 O5AF E8 O5EE R call PARSE_NUMBER 

985 O5B2 72 07 je short BAD_INPUT 

986 O5B4 26: 89 OE OOB8 R mov es:READ_NUMBER_RESULT, cx 

987 O5B9 ALL_GOOD: 

988 O5B9 F8 clc 

989 O5BA C3 ret 

990 O5BB BAD_INPUT: 

991 O5BB E8 0765 R call DO_BEEP 

992 OS5BE 26: C6 06 01CO R 00 mov es :CURSOR_LOCATION_OR_SOMETHING, 0 
993 05C4 26: 8A 26 00B3 R mov ah, es:READ_NUMBER_SAVED_AH 

994 05C9 26: AO 00B2 R mov al, es:READ_NUMBER_SAVED_AL 

995 O5CD E8 0776 R call STORE_CURSOR_POS 

996 O5D0 E8 O5E1 R call SET_CURSOR_POS_AND_WIPE 

997 O05D3 B9 0000 mov ex, 0 

998 O5D6 BB 00B4 R mov bx, offset PARSE_NUMBER_BUFFER 
999 O5D9 E9 0542 R jmp READ_NEXT_KEY 

1000 O5Dc READ_NUMBER ENDP 

1001 

1002 

1003 O5Dc UPDATE_CURSOR_AND_WIPE PROC NEAR 

1004 O5DC E8 06D3 R call READ_CURSOR_POS 

1005 OS5DF EB 03 jmp short WIPE_THINGS_WITH_SPACES 

1006 O5E1 UPDATE_CURSOR_AND_WIPE ENDP 

1007 

1008 

1009 OS5E1 SET_CURSOR_POS_AND_WIPE PROC NEAR 

1010 O5E1 E8 O6EE R call SET_CURSOR_POS 

1011 O5E4 SET_CURSOR_POS_AND_WIPE ENDP 

1012 

1013 

1014 O5E4 WIPE_THINGS_WITH_SPACES PROC NEAR 

1015 O5E4 BA 0948 R mov dx, offset STRING_SPACES 

1016 O5E7 E8 074C R call PRINT_STRING_NO_CRLF 

1017 O5EA E8 O6EE R call SET_CURSOR_POS 

1018 OS5ED C3 ret 

1019 OS5EE WIPE_THINGS_WITH_SPACES ENDP 


1020 
1021 
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1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 


O5EE 
O5EE 
O5F1 
O5F3 
O5F9 
O5FB 
O5FB 
O5FE 
0600 
0602 
0604 
0606 
0608 
0609 
060B 
0610 
0616 
0618 
061B 
061D 
O61F 
0620 
0622 
0622 
0623 
0624 
0624 
0625 
0626 


0626 
0626 
0627 
0628 
062F 
0636 
063D 
0640 
0643 
0647 
0647 
0649 
064B 
064E 
0653 
0654 
0657 
0659 
065A 
065B 
o65c 


065C 
o65c 
065D 
0660 
0661 
0664 
0667 
066A 
066D 
066E 
0671 
0672 
0673 


0673 
0673 
0677 
0679 
067E 
0680 
0683 


0685 
0687 
0689 
068B 


068B 
O68F 
0690 
0691 


0691 
0691 
0694 
0697 
O69A 
O69F 
O6A2 
O6A8 
O6AE 
O6B1 
O6B5 
O6BB 
O6BD 
O6BF 
O6BF 
06c3 
06c4 
06c5 


BB 
33 


26: 


74 


26: 


3c 
72 
3c 
77 
2c 
98 
03 


26: 
26: 


74 
B8 
F7 
8B 
43 
EB 


F8 
c3 


F9 
c3 


53 
51 


26: 
26: 
26: 


BB 
BO 


26: 


33 
F7 
80 


26: 


4B 
3D 
a5 
59 
5B 
c3 


51 
E8& 
50 
E8& 
BA 
E8& 
E8& 
58 
E8& 
59 
c3 


26: 


33 


26: 


F7 
BO 
F7 


3c 
77 
FE 


26: 


Fs 
c3 


BA 
E8& 
E8& 


26: 


E8& 


26: 
26: 


E8& 


26: 
26: 


75 
BO 


26: 


F8 
c3 


PAGE 
PARSE_NUMBER 

00B4 R mov 

co xor 

80 3E 01CO R 00 cmp 

27 je 

NEXT_DIGIT: 

8A 07 mov 

30 cmp 

22 jb 

39 cmp 

1E ja 

30 sub 
cbw 

c8 add 

FE OE 01CO R dec 

80 3E 01CO R 00 cmp 

OA je 

000A mov 

El mul 
cs mov 
inc 
D9 jmp 
LAST_DIGIT: 
cle 
ret 
BAD_NUMBER: 
stc 
ret 
PARSE_NUMBER 
VERIFY_PROGRESS_STH 
push 
push 

C7 06 O1CE R 2020 mov 

C7 06 01D0 R 2020 mov 

C7 06 01D2 R 2020 mov 

0004 mov 

000A mov 

Al 01D6 R mov 

ANOTHER_PROGRESS_DIGIT: 
D2 xor 
Fl div 
c2 30 add 

88 97 O1CE R mov 
dec 

0000 cmp 

EE jne 

pop 

pop 

ret 

VERIFY_PROGRESS_STH 
BACKSPACE_WIPE_WITH_SPAC: 

push 

O76C R call 
push 

06D3 R call 

099E R mov 
074C R call 

O6EE R call 
pop 

0776 R call 
pop 
ret 

BACKSPACE_WIPE_WITH_SPAC: 

UNK_UNUSED_1 
Al 01C8 R mov 
co xor 

8A OE 01CC R mov 

El mul 
012c mov 
Fl div 
00 cmp 
02 ja 
co inc 

STILL_MORE: 

A2 01D4 R mov 
cle 
ret 

UNK_UNUSED_1 
UNUSED_READ_CONTROL_BYTE 
09c9 R mov 

0755 R call 

06D3 R call 

FE OE 00B0 R dec 

O6EE R call 

C6 06 01BB R 03 mov 

C6 06 01BA R 03 mov 

0527 R call 

Al 00B8 R mov 

80 3E OOBA R 00 cmp 

02 jne 

02 mov 

CONTROL_BYTE_SET: 

A2 01D5 R mov 
cle 
ret 


UNUSED_READ_CONTROL_BYTE 


1-12 
01-06-88 


ge 


PROC NEAR 
bx, offset PARSE_NUMBER_BUFFER 

cx, cx 

es :CURSOR_LOCATION_OR_SOMETHING, 0 
short LAST_DIGIT 


al, es: [bx] 

al, ‘0’ 

short BAD_NUMBER 
al, ‘9’ 

short BAD_NUMBER 
al, ‘0’ 


cx, ax 
es : CURSOR_LOCATION_OR_SOMETHING 

es :CURSOR_LOCATION_OR_SOMETHING, 0 
short LAST_DIGIT 

ax, 10 

cx 
cx, 
bx 
short NEXT_DIGIT 


ax 


ENDP 


PROC NEAR 
bx 
cx 
es: VERIFY_PROGRESS_BUFFER, 2020h 


es: VERIFY_PROGRESS_BUFFER_0, 2020h 
es: VERIFY_PROGRESS_BUFFER_1, 2020h 
bx, 4 
cx, OAh 
ax, word ptr es:VERIFY_STH_2 
dx, dx 
cx 
dl, ‘0’ 
byte ptr es:VERIFY_PROGRESS_BUFFER[bx], dl 
bx 
ax, 0 


short ANOTHER_PROGRESS_DIGIT 
cx 
bx 


ENDP 


E PROC NEAR 
cx 

LOAD_CURSOR_POS 

ax 

READ_CURSOR_POS 

dx, offset STRING_SPACE 
PRINT_STRING_NO_CRLF 
SET_CURSOR_POS 

ax 

STORE_CURSOR_POS 

cx 


E ENDP 


PROC NEAR 


es : LAST_CYLINDER_NUMBER 
cx 


ax, 
cx, 


cl, es: LAST_HEAD_NUMBER 
cx 

cx, 300 

cx 

al, 0 

short STILL_MORE 

al 


es:UNK_UNUSED_STH, al 


ENDP 


PROC NEAR 
dx, offset STRING_CONTROL_BYTE_2 
PRINT_CRLF_STRING 
READ_CURSOR_POS 
es : SAVED_COLUMN 
SET_CURSOR_POS 
es:READ_NUMBER_MAX DIGITS, 3 
es:READ_NUMBER_MIN_DIGITS, 3 
READ_NUMBER 
ax, es:READ_NUMBER_RESULT 
es:READ_NUMBER_RESULT_LEN, 0 
short CONTROL_BYTE_SET 
al, 2 ; Default if unset 


es:CONTROL_BYTE, al 


ENDP 


Two spaces 
Two spaces 
Two spaces 
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1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 


06c5 
06c5 
O6CA 
o6cD 
O6DO 
06D2 
06D3 


06D3 
06D3 
O6D4 
O6D5 
O6D6 
O6D7 
O6D8 
O6DA 
O6DC 
O6DE 
06E3 
O6E8 
O6E9 
O6EA 
O6EB 
O6EC 
O6ED 
O6EE 


O6EE 
O6EE 
O6EF 
O6FO 
O6F1 
O6F2 
O6F4 
O6F9 
O6FE 
0700 
0702 
0703 
0704 
0705 
0706 
0707 


0707 
0707 
070A 
070B 


070E 
0711 
0714 
0717 
071A 
071D 
0720 
0723 
0726 
0729 
072Cc 
072D 
072E 


072E 
072E 
072F 
0731 
0733 
0736 
0737 
0738 
073A 
073C 
073F 
0742 
0743 
0745 
0748 
074B 
074Cc 


074c 
074Cc 
074D 
074E 


074F 
0751 
0753 


0754 
0755 


26: 


80 
BO 
cD 
c3 


50 
56 
53 
52 
51 
B4 
B7 
cD 


26: 
26: 


59 
5A 
5B 
5E 
58 
c3 


50 
56 
52 
53 
B4 


26: 
26: 


B7 
cD 
5B 
5A 
5E 
58 
c3 


E8& 
1E 
E8& 


AO 
E8& 
AO 
E8& 
AO 
E8& 
AO 
E8& 
BA 
E8& 
1F 
c3 


50 
32 
BO 
E8& 
58 
50 
Bl 
D2 
E8& 
E8& 
58 
24 
E8& 
E8& 
c3 


1E 
OE 
1F 


B4 
cD 
1F 


c3 


8A 16 01B9 R 


CA 80 
0001 
13 


03 
00 
10 


88 36 0OB1 R 
88 16 0OBO R 


02 


8A 36 0OB1 R 
8A 16 0OBO R 


00 
10 


0755 


1139 


0442 
072E 
0443 
072E 
0444 
072E 
0445 
072E 
o9D9 
074Cc 


FF 
20 
O7AB 


04 
E8& 
07B0 
O7AB 


OF 
07BO 
O7AB 


09 
21 


PRODDADDDDDD 
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01-06-88 
PAGE 
INT13H_FOR_CHOSEN_DRIVE PROC NEAR 
mov dl, es:HARD_DISK_NUMBER 
or dl, 80h 
mov ex, 1 
int 13h 
ret 
INT13H_FOR_CHOSEN_DRIVE ENDP 
READ_CURSOR_POS PROC NEAR 
push ax 
push si 
push bx 
push dx 
push cx 
mov ah, 3 ; Read video cursor 
mov bh, 0 
int 10h 
mov es:SAVED_ROW, dh 
mov es:SAVED_COLUMN, dl 
pop cx 
pop dx 
pop bx 
pop si 
pop ax 
ret 
READ_CURSOR_POS ENDP 
SET_CURSOR_POS PROC NEAR 
push ax 
push si 
push dx 
push bx 
mov ah, 2 ; Set video cursor 
mov dh, es:SAVED_ROW 
mov dl, es:SAVED_COLUMN 
mov bh, 0 
int 10h 
pop bx 
pop dx 
pop si 
pop ax 
ret 
SET_CURSOR_POS ENDP 
PRINT_MESSAGE_AND_DUMP_CONTROLLER_BUFFER PROC NEAR 
call PRINT_CRLF_STRING 
push ds 
call ZERO_DS 
ASSUME ds: ZEROSEG 
mov al, BDA_CONTROLLER_DATA_BUFFER_00 
call PRINT_HEX_BYTE 
mov al, BDA_CONTROLLER_DATA_BUFFER_01 
call PRINT_HEX_BYTE 
mov al, BDA_CONTROLLER_DATA_BUFFER_02 
call PRINT_HEX_BYTE 
mov al, BDA_CONTROLLER_DATA_BUFFER_03 
call PRINT_HEX_BYTE 
mov dx, offset STRING_CRLF_DOS 
call PRINT_STRING_NO_CRLF 
pop ds 
ret 
PRINT_MESSAGE_AND_DUMP_CONTROLLER_BUFFER ENDP 
PRINT_HEX_BYTE PROC NEAR 
push ax 
xor bh, bh 
mov Shy Ft 
call BIOS_WRITE_TEXT 
pop ax 
push ax 
mov cl, 4 
shr pe ey = 
call NUMBER_TO_HEX_DIGIT 
call BIOS_WRITE_TEXT 
pop ax 
and al, OFh 
call NUMBER_TO_HEX_DIGIT 
call BIOS_WRITE_TEXT 
ret 


PRINT_HEX_BYTE 


PRINT_STRING_NO_CRLF 
push 
push 
pop 
ASSUME 
mov 
int 
pop 
ASSUME 
ret 

PRINT_STRING_NO_CRLF 


ENDP 


PROC NEAR 

ds 

cs 

ds 

ds : ROM 

ah, 9 ; DOS print string 
21h 

ds 

ds : FORMATTER_HEAP 


ENDP 
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1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 


0755 
0755 
0756 
0757 


0758 
075A 
075B 
075E 
0760 
0761 
0763 


0764 
0765 


0765 
0765 
0768 
076B 
076C 


076c 
076C 
0770 
0775 
0776 


0776 
0776 
O77A 
O77F 
0780 


0780 
0780 
0783 
0786 
078B 
0791 
0794 
0795 


0795 
0795 
0798 
079c 
O7AL 
O7A3 
O7A7 
O7AA 
O7AB 


O7AB 
O7AB 
O7AD 
O7AF 
07B0 


07B0 
07B0 
O7B2 
07B4 
O7B6 
07B8 
O7B9 
07B9 
07BB 
07BC 


07BC 


o7DC 


O7F4 


080D 


osic 


0834 


0844 


os5c 


086B 


1E 
OE 
1F 


B4 
52 
BA 
cD 
5A 
cD 
1F 


c3 


BA 
E8& 
c3 


26: 
26: 


c3 


26: 
26: 


c3 


E8& 
E8& 


26: 
26: 


E8& 
c3 


E8& 


26: 
26: 


2c 


26: 


E8& 
c3 


B4 
cD 
c3 


3c 
72 
2c 
04 
c3 


04 
c3 


54 
4F 
72 
65 
20 
4F 
20 
61 
20 
64 
OA 
20 
20 
6F 
24 
07 
74 
65 
OA 
20 
72 
61 
OA 
66 
6c 
07 
66 
65 
6F 
OA 
74 
2E 
46 
20 


09 


09D9 R 


21 


21 


094F R 
074C R 


AO 00OBO R 
8A 26 0OB1 R 


A2 00B0 R 
88 26 0OB1 R 


06D3 R 
0765 R 
FE OE 00B1 R 
C6 06 00B0 R 
O6EE R 


06D3 R 
AO 0OBO R 
8A 26 0OB1 R 


05 


A2 00B0 R 
O6EE R 


OE 
10 


OA 
05 
OA 
41 


30 


68 
52 
6F 
20 
44 
59 
41 
74 
79 
69 
45 
64 
23 
72 


46 
20 
64 
07 
62 
61 
69 
07 
79 
65 
49 
61 
20 
72 
46 
74 
2E 
6F 
63 


69 
4D 
75 
77 
45 


4c 
61 
6F 
73 
6E 
72 
20 
20 


6F 
66 
24 
46 
61 
63 
6c 
56 
20 
64 
6E 
69 
2D 
74 
6F 
69 
24 
72 
6F 


73 
41 
74 
69 
53 


4c 
20 
75 
6B 
74 
69 
28 
31 


72 
61 


6c 
64 
6B 
65 
65 
66 
24 
69 
6c 
20 
65 
72 
6E 


6D 
6D 


20 
54 
69 
6c 
54 


20 
6F 
72 
21 
65 
76 
30 
29 


6D 
69 


61 
20 
20 
64 
72 
61 


74 
75 
61 
64 
6D 
67 


61 
70 


46 
20 
6E 
6c 
52 


64 
6E 
20 
24 
72 
65 
20 
3A 


61 
6c 


67 
74 
66 
24 
69 
69 


20 
72 
62 
24 
61 
2E 


74 
6c 


00 


PAGE 

PRINT_CRLF_STRING 
push 
push 
pop 
ASSUME 
mov 
push 
mov 
int 
pop 
int 
pop 
ASSUME 
ret 

PRINT_CRLF_STRING 


DO_BEEP 
mov 
call 
ret 

DO_BEEP 

LOAD_CURSOR_POS 
mov 
mov 
ret 


LOAD_CURSOR_POS 


STORE_CURSOR_POS 
mov 
mov 
ret 

STORE_CURSOR_POS 


BAD_ENTRY_BEEP 


ge 1- 
01-06-' 


14 
88 


PROC NEAR 


ds 

cs 

ds 
ds : ROM 
ah, 9 
dx 


; DOS print string 


dx, offset STRING_CRLF_DOS 


21h 
dx 
21h 
ds 


ds : FORMATTER_HEAP 


ENDP 


PROC NEAR 
dx, offset STRING_BEEP 


PRINT_STRING_NO_CRLF 


ENDP 


PROC NEAR 
al, es:SAVED_COLUMN 


ah, es:SAVED_ROW 


ENDP 


PROC NEAR 


es: SAVED_COLUMN, 
es:SAVED_ROW, ah 


ENDP 


PROC NEAR 


al 


al 


; Write string 


OAh, 


OAh, 


OAh, 


OAh, 


call READ_CURSOR_POS 
call DO_BEEP 
dec es : SAVED_ROW 
mov es:SAVED_COLUMN, 0 
call SET_CURSOR_POS 
ret 
BAD_ENTRY_BEEP ENDP 
MOVE_CURSOR PROC NEAR 
call READ_CURSOR_POS 
mov al, es:SAVED_COLUMN 
mov ah, es: SAVED_ROW 
sub al, 5 
mov es : SAVED_COLUMN, 
call SET_CURSOR_POS 
ret 
MOVE_CURSOR ENDP 
BIOS_WRITE_TEXT PROC NEAR 
mov ah, OEh 
int 10h 
ret 
BIOS_WRITE_TEXT ENDP 
NUMBER_TO_HEX_DIGIT PROC NEAR 
cmp al, 10 
jb short ZERO_TO_NINE 
sub al, 10 
add hy TA 
ret 
ZERO_TO_NINE: 
add al, ‘0’ 
ret 
NUMBER_TO_HEX_DIGIT ENDP 
STRING_FORMAT_WILL_DESTROY DB 
DB 
STRING_ENTER_DRIVE DB 
STRING_FORMAT_FAILED DB 
STRING_BAD_SECTOR_FAILED DB 
STRING_VERIFY_FAILED DB 
UNUSED_STRING_INIT_FAILURE DB 
STRING_FORMATTING DB 
STRING_FORMAT_COMPLETE DB 


"This FORMAT routine will DESTROY" 


" ALL data on your disk!$" 


"Enter drive # (0 or 1):$" 


"Format failed$" 


"Flag bad track failed$" 


"Verify failed$" 


"Init failure - aborted$" 


"Formatting. ..$" 


"Format complete$" 
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1344 65 74 65 24 

1345 087B 56 65 72 69 66 79 STRING_VERIFYING DB "Verifying... $" 

1346 69 6E 67 2E 2E 2E 

1347 20 20 24 

1348 O88A OA 56 65 72 69 66 STRING_VERIFY_COMPLETE DB OAh, "Verify complete$" 

1349 79 20 63 6F 6D 70 

1350 6C 65 74 65 24 

1351 089B 4E 6F 20 6D 6F 72 STRING_NO_MORE_DEFECTS DB "No more defects accepted!$" 
1352 65 20 64 65 66 65 

1353 63 74 73 20 61 63 

1354 63 65 70 74 65 64 

1355 21 24 

1356 O8B5 OA 41 6E 79 20 64 STRING_ANY_DEFECTS DB OAh, "Any defects (Y/N)? $" 
1357 65 66 65 63 74 73 

1358 20 28 59 2F 4E 29 

1359 3F 20 24 

1360 O8CA OA 28 50 72 65 73 STRING_PRESS_RET_TO_END DB OAh, "(Press <RET> to end defect list) $" 
1361 73 20 3C 52 45 54 

1362 3E 20 74 6F 20 65 

1363 6E 64 20 64 65 66 

1364 65 63 74 20 6C 69 

1365 73°74 29 24 

1366 O8EC 43 59 4C 49 4E 44 STRING_CYLINDER DB "CYLINDER: $s" 

1367 45 52 3A 20 20 20 

1368 20 20 24 

1369 O8FB 20 20 20 20 48 45 STRING_HEAD DB Ly HEAD: $s" 

1370 41 44 3A 20 20 20 

1371 20 20 24 

1372 090A 4D 6F 72 65 20 65 STRING_ASK_MORE_DEFECT_ENTRIES DB “More entries (Y/N)? $" 
1373 6E 74 72 69 65 73 

1374 20 28 59 2F 4E 29 

1375 3F 20 24 

1376 091F OA 41 72 65 20 79 STRING_CONFIRM_FORMAT DB OAh, “Are you SURE you want to format (Y/N)? $" 
1377 6F 75 20 53 55 52 

1378 45 20 79 6F 75 20 

1379 77 61 6E 74 20 74 

1380 6F 20 66 6F 72 6D 

1381 61 74 20 28 59 2F 

1382 4E 29 3F 20 24 

1383 0948 20 20 20 20 20 20 STRING_SPACES DB m $s" 

1384 24 

1385 O094F 07 24 STRING_BEEP DB 7, 

1386 0951 DB DB ODBh 

1387 0952 6C DB 6Ch 

1388 0953 OA 50 72 65 73 73 STRING_PRESS_RET_TO_PROCEED DB OAh, "Press <RET> to proceed or <ESC> to cancel...$" 
1389 20 3C 52 45 54 3E 

1390 20 74 6F 20 70 72 

1391 6F 63 65 65 64 20 

1392 6F 72 20 3c 45 53 

1393 43 3E 20 74 6F 20 

1394 63 61 6E 63 65 6C 

1395 2E 2E 2E 24 

1396 0981 50 72 65 73 73 20 STRING_ANY_KEY_TO_REBOOT DB "Press any key to reboot...$" 
1397 61 6E 79 20 6B 65 

1398 79 20 74 6F 20 72 

1399 65 62 6F 6F 74 2E 

1400 2E 2E 24 

1401 099C 25 24 STRING_PERCENT DB "sg" 

1402 099E 20 24 STRING_SPACE DB "og" 

1403 O09A0 07 57 72 69 74 65 STRING_BEEP_SECTOR_WRITE_FAIL DB 7, “Write buffer failed$" 
1404 20 62 75 66 66 65 

1405 72 20 66 61 69 6C 

1406 65 64 24 

1407 O9B5 OA 49 6E 74 65 72 STRING_INTERLEAVE DB OAh, "Interleave (1-15) :$" 
1408 6C 65 61 76 65 20 

1409 28 31 2D 31 35 29 

1410 3A 24 

1411 09C9 43 4F 4E 54 52 4F STRING_CONTROL_BYTE_2 DB "CONTROL BYTE: 2$" 

1412 4C 20 42 59 54 45 

1413 3A 20 32 24 

1414 09D9 OD OA 24 STRING_CRLF_DOS DB ODh, OAh, "$" 

1415 O9DC 00 08 10 00 08 00 DB 0, 8, 10h, 0, 8, 0, 8, 7, 2, 4, 4, 4, 0, 0, 0, 0 
1416 08 07 02 04 04 04 

1417 00 00 00 00 

1418 O9EC 50 72 6F 63 65 73 STRING_PROCESSING_DEFECTS DB "Processing defects...$" 
1419 73 69 6E 67 20 64 

1420 65 66 65 63 74 73 

1421 2E 2E 2E 24 

1422 

1423 OA02 28 63 29 43 6F 70 COPYRIGHT_STRING DB "(c)Copyright 1987 SMS" 

1424 79 72 69 67 68 74 

1425 20 31 39 38 37 20 

1426 53 4D 53 

1427 ; Yeah, do not disassemble or anything. 
1428 ; You’1l be shot in the face if you do. 
1429 


1430 


Unmask IRQO (timer) 


Drive ready (spin-up) timeout 

If the soft reset flag is not present 
we keep the long timeout of 450, 
otherwise we shorten it to 90 
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1431 PAGE 
1432 ee a 
1433 ¥ Option ROM initialization 
1434 PF a ee pe OE OO ae a ee 
1435 
1436 OA17 ROM_INIT PROC FAR 
1437 0A17 E8 1141 R call ZERO_DS_ALT 
1438 ASSUME ds: ZEROSEG 
1439 
1440 OA1A FA cli 
1441 OA1B C7 06 0064 R 1148 R mov INT19H_OFFSET, offset INT19H_HANDLER 
1442 0A21 8C OE 0066 R mov INT19H_SEGMENT, cs 
1443 0A25 C7 06 0104 R 0020 R mov INT41H_ OFFSET, offset INT41H_DATA 
1444 OA2B 8C OE 0106 R mov INT41H_SEGMENT, cs 
1445 OA2F 06 push es 
1446 0A30 57 push di 
1447 0A31 C4 3E 004C R les di, dword ptr INT13H_OFFSET 
1448 0A35 89 3E 0100 R mov INT40H_OFFSET, di 
1449 0A39 8C 06 0102 R mov INT40H_SEGMENT, es 
1450 ASSUME es: ZEROSEG 
1451 OA3D 5F pop di 
1452 OA3E 07 pop es 
1453 OA3F C7 06 004C R OB77 R mov INT13H_OFFSET, offset INT13H_HANDLER 
1454 0A45 8C OE 004E R mov INT13H_SEGMENT, cs 
1455 0A49 FB sti 
1456 
1457 OA4A E8 1139 R call ZERO_DS 
1458 ASSUME ds: ZEROSEG 
1459 OA4D C6 06 0475 R 00 mov BDA_NUMBER_OF_HARD_DISKS, 0 
1460 
1461 OA52 FA cli 
1462 0A53 E4 21 in al, 21h 
1463 OA55 24 FE and al, OFEh i 
1464 0A57 E6 21 out 21h, al 
1465 OA59 FB sti 
1466 
1467 OASA E8 OD61 R call MASTER_RESET 
1468 OA5D B4 14 mov ah, INT13H_OP_14_CONTROLLER_DIAGS 
1469 OASF E8 OB5A R call DO_CALL_INT13H 
1470 OA62 73 06 jne short CONTROLLER_DIAGS_FINE 
1471 OA64 BE 1216 R mov si, offset STRING_B 
1472 0A67 E9 OBOO R jmp DISK_INIT_ERROR 
1473 OA6A CONTROLLER_DIAGS_FINE: 
1474 OAG6A B4 12 mov ah, INT13H_OP_12_SRAM_DIAGS 
1475 OA6C E8 OB5A R call DO_CALL_INT13H 
1476 OA6F 73 06 jne short SRAM_DIAGS_FINE 
1477 OA71 BE 1214 R mov si, offset STRING_A 
1478 0A74 E9 OBOO R jmp DISK_INIT_ERROR 
1479 OA77 SRAM_DIAGS_FINE: 
1480 0A77 50 push ax 
1481 OA78 53 push bx 
1482 OA79 51 push cx 
1483 OA7A 52 push dx 
1484 OA7B B8 01C2 mov ax, 450 ; 
1485 OA7E 81 3E 0472 R 04D2 cmp BDA_SOFT_RESET_FLAG, 4D2h ; 
1486 OA84 75 03 jne short NOT_SOFT_RESET_4D2 i. 
1487 OA86 B8 OO5A mov ax, 90 5 
1488 OA89 NOT_SOFT_RESET_4D2: 
1489 OA89 E8 1028 R call BDA_TIMER_TO_CX_DX 
1490 OA8C 03 DO add dx, ax 
1491 OA8E 83 D1 00 adc cx, 0 
1492 OA91 8B D9 mov bx, cx 
1493 0A93 8B C2 mov ax, dx 
1494 
1495 0A95 DO_TEST_READY: 
1496 OA95 50 push ax 
1497 OA96 53 push bx 
1498 0A97 B4 10 mov ah, INT13H_OP_10_TEST_DRIVE_READY 
1499 O0A99 E8 OB5A R call DO_CALL_INT13H 
1500 OA9C 73 1E jne short DO_RECALIBRATE 
1501 OA9E 80 FC 27 cmp ah, INT13H_STATUS_27_NEED_RECALIBRATE 
1502 OAA1 74 19 je short DO_RECALIBRATE 
1503 OAA3 E8 1028 R call BDA_TIMER_TO_CX_DX 
1504 OAA6 5B pop bx 
1505 OAA7 58 pop ax 
1506 OAA8 3B D9 cmp bx, cx 
1507 OAAA 77 E9 ja short DO_TEST_READY 
1508 OAAC 72 04 jb short DO_TEST_READY_TIMED_OUT 
1509 OAAE 3B C2 cmp ax, dx 
1510 OABO 77 E3 ja short DO_TEST_READY 
1511 
1512 OAB2 DO_TEST_READY_TIMED_OUT: 
1513 OAB2 5A pop dx 
1514 OAB3 59 pop cx 
1515 OAB4 5B pop bx 
1516 OABS 58 pop ax 
1517 OAB6 BE 1218 R mov si, offset STRING_C 
1518 OAB9 EB 45 jmp short DISK_INIT_ERROR 
1519 OABB 90 nop 
1520 
1521 OABC DO_RECALIBRATE: 
1522 OABC 5B pop bx 
1523 OABD 58 pop ax 
1524 OABE 5A pop dx 
1525 OABF 59 pop cx 
1526 OACO 5B pop bx 
1527 OAC1 58 pop ax 
1528 OAC2 B4 11 mov ah, INT13H_OP_11_RECALIBRATE 
1529 OAC4 E8 OB5A R call DO_CALL_INT13H 
1530 OAC7 73 06 jne short DO_RESET_DISK_SYSTEM 
1531 OAC9 BE 121A R mov si, offset STRING_D 
1532 OACC EB 32 jmp short DISK_INIT_ERROR 
1533 OACE 90 nop 
1534 
1535 OACF DO_RESET_DISK_SYSTEM: 
1536 OACF B4 00 mov ah, INT13H_OP_00_RESET_DISK_SYSTEM 
1537 OAD1 E8 OB5A R call DO_CALL_INT13H 
1538 OAD4 73 06 jne short DO_RESET_SUCCESSFUL 
1539 OAD6 BE 121C R mov si, offset STRING_E 
1540 OAD9 E8 OBOO R call DISK_INIT_ERROR 
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1541 OADC DO_RESET_SUCCESSFUL: 

1542 OADC FE 06 0475 R ine BDA_NUMBER_OF_HARD_DISKS 

1543 

1544 OAEO B4 10 mov ah, INT13H_OP_10_TEST_DRIVE_READY 
1545 OAE2 E8 OB68 R call D1_CALL_INT13H 

1546 OAES5 73 08 jne short D1_RECALIBRATE 

1547 OAE7 80 FC 27 cmp ah, INT13H_STATUS_27_NEED_RECALIBRATE 
1548 OAEA 74 03 je short D1_RECALIBRATE 

1549 OAEC EB 15 jmp short ROM_INIT_DONE 

1550 OAEE 90 nop 

1551 

1552 OAEF D1_RECALIBRATE: 

1553 OAEF B4 11 mov ah, INT13H_OP_11_RECALIBRATE 
1554 OAF1 E8 OB68 R call D1_CALL_INT13H 

1555 OAF4 73 03 jne short D1_RECALIBRATE_SUCCESSFUL 
1556 OAF6 EB OB jmp short ROM_INIT_DONE 

1557 OAF8 90 nop 

1558 

1559 OAF9 D1_RECALIBRATE_SUCCESSFUL: 

1560 OAF9 FE 06 0475 R ine BDA_NUMBER_OF_HARD_DISKS 

1561 OAFD EB 04 jmp short ROM_INIT_DONE 

1562 OAFF 90 nop 

1563 

1564 OBOO DISK_INIT_ERROR: 

1565 OBOO E8 OB16 R call ERROR_1701 

1566 OBO3 ROM_INIT_DONE: 

1567 0BO3 E8 1139 R call ZERO_DS 

1568 ASSUME ds: ZEROSEG 

1569 OBO6 32 CO xor al, al ; Disable DMA/IRQ 
1570 OBO8 BA 0323 mov dx, IO_PORT_323_DMA_IRQ 

1571 OBOB E8 103A R call DO_NOTHING 

1572 OBOE E8 1137 R call OUTB_DX_AL 

1573 0B11 BO 07 mov al, 111b ; Mask DRQ3 
1574 0B13 E6 OA out OAh, al 

1575 0OB15 CB ret 

1576 OB16 ROM_INIT ENDP 

1577 


1578 
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1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 


0B16 
0B16 
0B17 
OB18 
0B1B 
OB1D 
0B20 
0B23 
OB24 
0B25 


OB26 
0B29 
OB2A 
OB2D 
0B30 
0B33 
0B36 
0B37 
OB3A 
0B3B 
OB3C 


OB3C 
OB3C 
OB3D 
OB3E 
OB3E 
OB3F 
OB41 
0B43 
OB44 
OB46 
OB47 
OB48 
OB49 


OB49 
OB49 
OB4A 
OB4B 
OB4c 
OB4D 


OB4E 
OB4E 
OB4F 
OB51 
0B53 
OB54 
OB56 


OB57 
OB58 
OB59 
OB5A 


OB5A 
OB5A 
OB5C 
OB60 
OB63 
OB65 
OB67 
OB68 


OB68 
OB68 
OB6B 
OB6F 
OB72 
OB74 
OB76 
0B77 


1E 
56 
BD 
32 
BE 
BO 
90 
OE 
1F 


E8& 
5E 
BO 
E8& 
BE 
BO 
90 
E8& 
1F 
c3 


50 
56 


AC 
B4 
cD 
49 
75 
5E 
58 
c3 


50 
56 
1E 
OE 
1F 


AC 
B4 
cD 
49 
75 
1F 


5E 
58 
c3 


33 
81 
BO 
BO 
cD 
c3 


BA 
81 
BO 
BO 
cD 
c3 


OOOF 
FF 
1210 R 
0004 


OB3C R 


0002 
OB3C R 
120E R 
0002 


OB3C R 


OE 
10 


F8 


OE 
10 


F8 


D2 

CA 0080 
0001 

00 

13 


0001 
CA 0080 
0001 

00 

13 





PAGE 
F This prints the "1701- error code when 
7 the option ROM fails to bring up the drive. 
; The SI register points to -A, -B, ... string 
+. which details the error encountered. 
ERROR_1701 PROC NEAR 

push ds 

push si 

mov bp, OFh 

xor bh, bh 

mov si, offset STRING_1701 

mov cx, 4 

nop 

push cs 

pop ds 


ASSUME ds:ROM 
call PRINT_CX_CHARS_FROM_DS_SI ; Print "1701" 





pop si 
mov ox, 2 
call PRINT_CX_CHARS_FROM_DS_SI ; Print (-A, -B, -C, 
mov si, offset STRING_CRLF 
mov cx, 2 
nop 
call PRINT_CX_CHARS_FROM_DS_SI ; Print "\r\n" 
pop ds 
ret 
ERROR_1701 ENDP 
iH A string print routine. 
PRINT_CX_CHARS_FROM_DS_STI PROC NEAR 
push ax 
push si 
NEXT_CHAR: 
lodsb 
mov ah, OEh 
aint 10h ; TTY write 
dec cx 
jne short NEXT_CHAR 
pop si 
pop ax 
ret 
PRINT_CX_CHARS_FROM_DS_STI ENDP 
H Another string print routine. Unused. 
UNUSED_PRINT_CX_CHARS_FROM_CS_SI PROC NEAR 
push ax 
push si 
push ds 
push cs 
pop ds 
ASSUME ds:ROM 
UNUSED_NEXT_CHAR: 
lodsb 
mov ah, OEh ; TTY write 
int 10h 
dec cx 
jne short UNUSED_NEXT_CHAR 
pop ds 
ASSUME ds: ZEROSEG 
pop si 
pop ax 
ret 
UNUSED_PRINT_CX_CHARS_FROM_CS_SI ENDP 
r Issue a disk service routine with some 
; pre-set arguments for the first drive. 
DO_CALL_INT13H PROC NEAR 
xor dx, dx 
or dx, 80h ; DL = 80H = Drive 0 
mov em, i ; CH=0 = First Cylinder, CL=1 
mov al, 0 ; AL=0 = Number of Sectors 
int 13h 
ret 
DO_CALL_INT13H ENDP 








3 Issue a disk service routine with some 

; pre-set arguments for the second drive. 

D1_CALL_INT13H PROC NEAR 
mov dx, 1 
or dx, 80h 81H = Drive 1 
mov ex, 2 = First Cylinder, CL=1 
mov al, 0 = Number of Sectors 
int 13h 
ret 

D1_CALL_INT13H ENDP 


First Sector 


First Sector 
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1686 PAGE 
1687 a ea a a la eae 
1688 ¥ BIOS Disk Services (INT 13H) 
1689 ee a ee ee 
1690 
1691 0B77 INT13H_HANDLER PROC FAR 
1692 0B77 FB sti 
1693 0B78 F6 C2 80 test dl, 80h 
1694 OB7B 74 02 je short NOT_A_HARD_DISK 
1695 OB7D EB 05 jmp short NOT_A_FLOPPY 
1696 OB7F NOT_A_HARD_DISK: 
1697 OB7F CD 40 aint 40h ; Invoke the old (floppy) 
1698 OB81 EB 75 jmp short ALL_DONE 3 INT13H handler 
1699 OB83 90 nop 
1700 OB84 NOT_A_FLOPPY: 
1701 OB84 F6 C4 FF test ah, OFFh ; Test for AH=00H ("Disk Subsystem Reset") 
1702 OB87 75 04 jne short HARD_DISK ; Handle a hard disk function 
1703 OB89 50 push ax 
1704 OB8A CD 40 int 40h ; Invoke the floppy reset handler and 
1705 ; then also proceed with the hard disk 
1706 OB8C 58 pop ax 
1707 OB8D HARD_DISK: 
1708 OB8D 56 push si 
1709 OB8E 51 push cx 
1710 OB8F BE 121E R mov si, offset INT13H_TRIVIAL_OP_VECTOR 
1711 O0B92 B9 0002 mov cx, 2 ; Number of vector entries 
1712 OB95 NEXT_TRIVIAL_OP: 
1713 OB95 2E: 3A 24 cmp ah, cs: [si] 
1714 0B98 74 OA je short TRIVIAL_OP_FOUND 
1715 OB9A 83 C6 03 add at, 3 7; Size of vector entry 
1716 OB9D E2 F6 loop NEXT_TRIVIAL_OP 
1717 OB9F 59 pop cx 
1718 OBAO 5E pop si 
1719 OBA1 EB 06 jmp short NO_TRIVIAL_OP_FOUND 
1720 OBA3 90 nop 
1721 OBA4 TRIVIAL_OP_FOUND: 
1722 OBA4 59 pop cx 
1723 OBAS 2E: FF 64 01 jmp word ptr cs: [si+1] 
1724 OBAQ NO_TRIVIAL_OP_FOUND: 
1725 OBA 57 push di 
1726 OBAA 56 push si 
1727 OBAB 06 push es 
1728 OBAC 1E push ds 
1729 OBAD 55 push bp 
1730 OBAE 52 push dx 
1731 OBAF 51 push cx 
1732 OBBO 53 push bx 
1733 OBB1 80 FC 00 cmp ah, INT13H_OP_00_RESET_DISK_SYSTEM 
1734 OBB4 75 02 jne short PROCEED_HANDLING_FUNC 
1735 OBB6 B2 80 mov dl, 80h ; Floppy reset has been done. 
1736 ; Reset the hard disk now. 
1737 OBBS PROCEED_HANDLING_FUNC: 
1738 OBB8 E8 1139 R call ZERO_DS 
1739 ASSUME ds: ZEROSEG 
1740 OBBB E8 ODFC R call CHECK_VALID_DISK_NUMBER 
1741 OBBE 73 08 jnb short DISK_NUMBER_IS_VALID 
1742 OBCO C6 06 0474 R 01 mov BDA_LAST_OP_STATUS, INT13H_STATUS_01_BAD_COMMAND 
1743 OBC5 EB 0c jmp short CLEANUP 
1744 OBC7 90 nop 
1745 OBC8 DISK_NUMBER_IS_VALID: 
1746 OBC8 E8 OBFB R call SET_BDA_STATUS_SUCCESS 
1747 OBCB E8 OC0O6 R call FILL_COMMAND_BUFFER 
1748 OBCE 72 03 je short CLEANUP 
1749 OBDO E8 OCBO R call CONTROLLER_FUNC 
1750 OBD3 CLEANUP : 
1751 OBD3 50 push ax 
1752 OBD4 E8 1139 R call ZERO_DS 
1753 ASSUME ds: ZEROSEG 
1754 OBD7 32 CO xor al, al ; Disable DMA/IRQ 
1755 OBD9 BA 0323 mov dx, IO_PORT_323_DMA_IRQ 
1756 OBDC E8 103A R call DO_NOTHING 
1757 OBDF E8 1137 R call OUTB_DX_AL 
1758 OBE2 BO 07 mov al, 111b ; Mask DRQ3 
1759 OBE4 E6 OA out OAh, al 
1760 OBE6 58 pop ax 
1761 OBE7 8A 26 0474 R mov ah, BDA_LAST_OP_STATUS 
1762 OBEB OA E4 or ah, ah 
1763 OBED 74 01 je short NO_ERROR 
1764 OBEF F9 stc 
1765 OBFO NO_ERROR: 
1766 OBFO 5B pop bx 
1767 OBF1 59 pop cx 
1768 OBF2 5A pop dx 
1769 OBF3 5D pop bp 
1770 OBF4 1F pop ds 
1771 OBFS 07 pop es 
1772 OBF6 5E pop si 
1773 OBF7 5F pop di 
1774 OBF8 ALL_DONE: 
1775 OBF8 CA 0002 ret 2 
1776 OBFB INT13H_HANDLER ENDP 
1777 
1778 
1779 a a a a a 
1780 > Reset the last disk operation status 
1781 Pore ee OO, 
1782 
1783 OBFB SET_BDA_STATUS_SUCCESS PROC NEAR 
1784 OBFB 1E push ds 
1785 OBFC E8 1139 R call ZERO_DS 
1786 ASSUME ds: ZEROSEG 
1787 OBFF C6 06 0474 R 00 mov BDA_LAST_OP_STATUS, INT13H_STATUS_00_NO_ERROR 
1788 0CO4 1F pop ds 
1789 0CO5 C3 ret 
1790 OCO6 SET_BDA_STATUS_SUCCESS ENDP 
1791 


1792 
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1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 


0coé6 
oco6 
oco9 
OcOB 
OCOE 
OCOE 
OCcOF 
0c10 
0c12 
oc15 
0c17 
oc1A 
0c1B 
ocic 
OC1E 
0c22 
0c25 
0c28 
Oc2A 
oc2D 
0Cc2F 
0c2F 
0c34 
0c34 
0c37 
0c3B 
0c3D 
0c3F 
0c42 
0c46 
0c47 
0c48 
oc49 
Oc4A 


oc4D 
ocs50 
0c53 
oc56 
oc59 
OC5E 
oc6é0 
océs5 
0Cc67 
océc 
OC6E 
OC6E 
0c73 
0c78 
0c78 
0c79 
OC7A 
0c7B 
oc7c 
0c7D 
OC7E 


OC7E 
OC7E 
OC7F 
ocso 
oc81 
oc82 
oces 
0c87 
oc8A 
ocsc 
ocsD 
oc90 
0c93 
oc94 
0c96 
oc99 
oc9B 
oc9D 
OC9OF 
OcA1 
OcA4 
OCA6 
OCA6 
OCA7 
OcA9 
OCAA 
OCAA 
OCAB 
OCAB 
OcAC 
OCAD 
OCAE 
OCAF 
OCBO 


E8& 
73 
E9 


50 
53 
8A 
BB 


2E: 


5B 
58 
FE 
89 


80 
74 
80 
75 


cé 


80 
88 
Bl 
D2 
80 
08 
50 
57 
51 
06 
E8& 


E8& 
83 


26: 


80 
74 
80 
74 
80 
75 


80 
80 


07 
59 
5F 
58 
F8 
c3 


50 
53 
51 
52 
80 
77 
80 
77 
51 
80 
80 
59 
77 
80 
8B 
Bl 
D2 
86 
3D 
76 


F9 
EB 
90 


F8 


5A 
59 
5B 
58 
c3 


OC7E R 
03 
OcD1 R 


c4 
122A R 
D7 
0442 R 


cg 

OE 0444 
0446 R 
FC OE 
05 

FC OF 
05 


06 0446 


E6 1F 
36 0443 
03 

CA 
E2 60 
16 0443 


1139 R 


101E R 

c7 08 
8A 05 
0447 R 
3E 0442 
OE 

3E 0442 
07 

3E 0442 
OA 


26 0444 
OE 0447 


FA 01 
1F 
FE 03 
1A 


El 3F 
F9 11 


10 
E1 co 
c1 
02 
co 
EO 
0265 
04 


02 


R 


o1 


04 


06 


07 


co 
00 





PAGE 
¥ This takes the INT13H arguments from 
7 registers and places them in command buffer 
; for submission to the controller. 
FILL_COMMAND_BUFFER PROC NEAR 
call VALIDATE_CHS 
jnb short CHS_VALID 
jmp BAD_COMMAND_ERROR_RETURN 
CHS_VALID: 
push ax 
push bx 
mov al, ah 
mov bx, offset INT13H_OP_TO_COMMAND_BYTE 
xlat byte ptr cs: [bx] 
mov BDA_CONTROLLER_DATA_BUFFER_00, al 
pop bx 
pop ax 
dec cl 
mov word ptr BDA_CONTROLLER_DATA_BUFFER_02, cx 
mov BDA_CONTROLLER_DATA_BUFFER_04, al 
cmp ah, OP_OE_READ_SECTOR_BUFFER 
je short READ_OR_WRITE 
cmp ah, OP_OF_WRITE_SECTOR_BUFFER 
jne short ANY_OP 
READ_OR_WRITE: 
mov BDA_CONTROLLER_DATA_BUFFER_04, 1 
ANY_OP: 
and dh, 1Fh 
mov BDA_CONTROLLER_DATA_BUFFER_01, dh 
mov oh, 3 
ror dl, cl 
and dl, 60h 
or BDA_CONTROLLER_DATA_BUFFER_01, dl 
push ax 
push di 
push cx 
push es 
call ZERO_DS 
ASSUME ds: ZEROSEG 
call DRIVE_PARAM_TO_DI 
add di, 8 
mov al, es: [di] 
mov BDA_CONTROLLER_DATA_BUFFER_05, al 
cmp BDA_CONTROLLER_DATA_BUFFER_00, OP_04_FORMAT_DRIVE 
je short FORMAT _DRIVE_OR_TRACK_NOT_BAD 
cmp BDA_CONTROLLER_DATA_BUFFER_00, OP_06_FORMAT_TRACK 
je short FORMAT _DRIVE_OR_TRACK_NOT_BAD 
cmp BDA_CONTROLLER_DATA_BUFFER_00, OP_07_FORMAT_BAD_TRACK 
jne short FORMAT _DRIVE_OR_TRACK 
FORMAT_DRIVE_OR_TRACK_NOT_BAD: 
and BDA_CONTROLLER_DATA_BUFFER_02, O0COh 
or BDA_CONTROLLER_DATA_BUFFER_05, 0 
FORMAT _DRIVE_OR_TRACK: 
pop es 
pop cx 
pop di 
pop ax 
cle 
ret 
FILL_COMMAND_BUFFER ENDP 
Fs Checks that the coordinates are in bounds. 
; Takes INT13H arguments in CX/DX, 
3 sets carry on failure. 
; Accepts C/H/S up to 614/4/17 
; Note that our drive actually is 615/2/34.. 
VALIDATE_CHS PROC NEAR 
push ax 
push bx 
push cx 
push dx 
cmp dl, 1 ; Check drive number 
ja short BAD_ARGUMENT 
cmp r- | ; Check head number 
ja short BAD_ARGUMENT 
push cx 
and cl, 3Fh 
cmp Gh; iT ; Check sector number 
pop cx 
ja short BAD_ARGUMENT 
and cl, OCOh 
mov ax, Cx 
mov Gl, 2 
rol al, cl 
xchg ah, al 
cmp ax, 613 ; Check cylinder 
jbe short ARGUMENTS_FINE 
BAD_ARGUMENT: 
stc 
jmp short DONE 
nop 
ARGUMENTS_FINE: 
cle 
DONE: 
pop dx 
pop cx 
pop bx 
pop ax 
ret 
VALIDATE_CHS ENDP 
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1904 PAGE 

1905 ee a a 
1906 F This handles INT13H functions that require 
1907 i any sort of interaction with the controller : 
1908 3 hardware. This could be either a command : 
1909 Fi submission, but also a reset. © 
VOLO nn ee 
1911 

1912 OCBO CONTROLLER_FUNC PROC NEAR 

1913 OCBO 80 FC 14 cmp ah, LAST_INT13H_OP 

1914 0CB3 77 1c ja short BAD_COMMAND_ERROR_RETURN 
1915 OCB5 E8 OCD9 R call CHECK_OP_NOT_A_RESET 

1916 OCB8 73 06 jnb short NOT_A_RESET 

1917 OCBA E8 OCE7 R call RESET_CONTROLLER 

1918 OCBD EB 19 jmp short JUST_RETURN 

1919 OCBF 90 nop 

1920 occo NOT_A_RESET: 

1921 OCCO 80 FC 09 cmp ah, INT13H_OP_09_INITIALIZE_DISK_TABLE 
1922 O0CC3 75 06 jne short RUN_COMMAND 

1923 OCC5 E8 0D83 R call INITIALIZE_DISK_TABLE 

1924 OCC8 EB OE jmp short JUST_RETURN 

1925 OCCA 90 nop 

1926 OCCB RUN_COMMAND : 

1927 OCCB E8 OEOC R call DO_COMMAND 

1928 OCCE EB 08 jmp short JUST_RETURN 

1929 OCDO 90 nop 

1930 OCD1 CONTROLLER_FUNC ENDP 

1931 

1932 OCD1 BAD_COMMAND_ERROR_RETURN PROC NEAR 

1933 OCD1 C6 06 0474 R 01 mov BDA_LAST_OP_STATUS, INT13H_STATUS_01_BAD_COMMAND 
1934 OCD6 F9 stc 

1935 OCD7 C3 ret 

1936 OCD8 BAD_COMMAND_ERROR_RETURN ENDP 

1937 

1938 OCD8 JUST_RETURN PROC NEAR 

1939 OCD8 C3 ret 

1940 OCD9 JUST_RETURN ENDP 

1941 

1942 

1943 

1944 

1945 

1946 

1947 OCD9 CHECK_OP_NOT_A_RESET PROC NEAR 

1948 OCD9 80 FC 00 cmp ah, INT13H_OP_00_RESET_DISK_SYSTEM 
1949 OCDC 74 07 je short IS_A_RESET 

1950 OCDE 80 FC OD cmp ah, INT13H_OP_OD_ALTERNATE_DISK_RESET 
1951 OCE1 74 02 je short IS_A_RESET 

1952 OCE3 F8 clc 

1953 OCE4 C3 ret 

1954 OCES IS_A_RESET: 

1955 OCES F9 stc 

1956 OCE6 C3 ret 

1957 OCE7 CHECK_OP_NOT_A_RESET ENDP 

1958 

1959 

1960 

1961 This issues a reset signal to the controller : 
1962 4 and then configures the drive geometry. : 
1963 z Done in response to INT13H functions 00H * 
1964 i ("Disk Subsystem Reset") and OD ("Alternate : 
1965 ; Disk Reset"), but also on errors in hope of ¥ 
1966 i bringing the controller back to workable state. : 
1967 9 eS et oe ee a eS 
1968 

1969 OCE7 RESET_CONTROLLER PROC NEAR 

1970 OCE7 E8 OD61 R call MASTER_RESET 

1971 OCEA E8 0D83 R call INITIALIZE_DISK_TABLE 

1972 OCED C3 ret 

1973 OCEE RESET_CONTROLLER ENDP 

1974 

1975 

1976 9 SS ee 
1977 rs Not sure why this exists or what command : 
1978 F 1AH would do. : 
1979 

1980 

1981 OCEE UNUSED_1A PROC NEAR 

1982 OCEE C6 06 0442 R 1A mov BDA_CONTROLLER_DATA_BUFFER_00, 1Ah 
1983 OCF3 C7 06 0443 R 0000 mov word ptr BDA_CONTROLLER_DATA_BUFFER_01, 0000H 
1984 OCF9 C6 06 0445 R 06 mov BDA_CONTROLLER_DATA_BUFFER_03, 06H 
1985 OCFE C6 06 0446 R 03 mov BDA_CONTROLLER_DATA_BUFFER_04, 03H 
1986 OD03 C6 06 0447 R 00 mov BDA_CONTROLLER_DATA_BUFFER_05, 00H 
1987 ODO8 E8 OEOC R call DO_COMMAND 

1988 ODOB C3 ret 

1989 ODOC UNUSED_1A ENDP 


1990 
1991 
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1992 PAGE 

1993 a a a an lc 
1994 F This is the INT13H 01H ("Get Drive F 
1995 i Parameters") handler. What it just chews and ; 
1996 3 returns data that can be gotten straight from + 
1997 ; the BDA anyways. 4 
1998 (a Se 
1999 

2000 opoc INT13H_08_GET_DRIVE_PARAMS PROC FAR 

2001 ODOC 5E pop si 

2002 ODOD 57 push di 

2003 ODOE 1E push ds 

2004 ODOF 06 push es 

2005 OD10 E8 1139 R call ZERO_DS 

2006 ASSUME ds: ZEROSEG 

2007 0D13 E8 ODFC R call CHECK_VALID_DISK_NUMBER 

2008 0D16 73 OA jnb short IS_A_VALID_DISK_NUMBER 
2009 0D18 C6 06 0474 R O1 mov BDA_LAST_OP_STATUS, INT13H_STATUS_01_BAD_COMMAND 
2010 OD1D B4 01 mov ah, 1 

2011 ODIF EB 2E jmp short DONE_GETTING_PARAMS 

2012 OD21 90 nop 

2013 op22 IS_A_VALID_DISK_NUMBER: 

2014 OD22 E8 OBFB R call SET_BDA_STATUS_SUCCESS 

2015 OD25 Bl 03 mov cl, 3 

2016 OD27 D2 CA ror dl, cl 

2017 OD29 80 E2 60 and dl, 60h 

2018 OD2C 88 16 0443 R mov BDA_CONTROLLER_DATA_BUFFER_01, dl 
2019 0D30 E8 101E R call DRIVE_PARAM_TO_DI 

2020 0D33 8A 16 0475 R mov dl, BDA_NUMBER_OF_HARD_DISKS 
2021 0D37 26: 8A 75 02 mov dh, es: [di+2] 

2022 OD3B FE CE dec dh 

2023 OD3D 26: 8B 05 mov ax, es: [di] 

2024 OD40 48 dec ax 

2025 0D41 48 dec ax 

2026 OD42 8A E8 mov ch, al 

2027 0D44 Bl 06 mov cl, 6 

2028 OD46 D2 E4 shl ah, cl 

2029 OD48 86 El xchg ah, cl 

2030 OD4A 80 c9 11 or el, 11h 

2031 OD4D 33 CO xor ax, ax 

2032 OD4F DONE_GETTING_PARAMS : 

2033 OD4F 07 pop es 

2034 OD50 1F pop ds 

2035 0D51 5F pop di 

2036 OD52 CA 0002 ret 2 

2037 OD55 INT13H_08_GET_DRIVE_PARAMS ENDP ; sp = 2 

2038 

2039 

2040 SS Se 
2041 3 Not sure why this exists. : 
2042 9 ee en a EE Oe 
2043 

2044 OD55 UNUSED_BYTE_01 PROC NEAR 

2045 OD55 Bl 03 mov el, 3 

2046 OD57 D2 CA ror dl, cl 

2047 OD59 80 E2 60 and dl, 60h 

2048 OD5C 88 16 0443 R mov BDA_CONTROLLER_DATA_BUFFER_01, dl 
2049 OD60 C3 ret 

2050 OD61 UNUSED_BYTE_01 ENDP 

2051 

2052 

2053 oS SS 
2054 +] This issues a reset signal to the controller. % 
2055 9 Se a ee a 
2056 

2057 OD61 MASTER_RESET PROC NEAR 

2058 OD61 BA 0321 mov dx, IO_PORT_321_READ_STATUS_WRITE_RESET 
2059 OD64 E8 103A R call DO_NOTHING 

2060 OD67 E8 1137 R call OUTB_DX_AL 

2061 OD6A B9 0684 mov cx, 684h ; Arbitrary delay 
2062 OD6D DO_LOOP: 

2063 OD6D E2 FE loop DO_LOOP 

2064 OD6F C3 ret 

2065 OD70 MASTER_RESET ENDP 

2066 

2067 

2068 

2069 : This is the INT13H 01H ("Get Disk Status 

2070 r handler. It returns status of the last 

2071 ; operation in AL and clears it. 

2072 

2073 

2074 OD70 INT13H_01_GET_DISK_STATUS PROC FAR 

2075 OD70 5E pop si 

2076 OD71 32 E4 xor ah, ah 

2077 OD73 1E push ds 

2078 OD74 E8 1139 R call ZERO_DS 

2079 ASSUME ds: ZEROSEG 

2080 0D77 AO 0474 R mov al, BDA_LAST_OP_STATUS 

2081 OD7A 88 26 0474 R mov BDA_LAST_OP_STATUS, ah 

2082 OD7E 1F pop ds 

2083 OD7F F8 clc 

2084 OD80 CA 0002 ret 2 

2085 0D83 INT13H_01_GET_DISK_STATUS ENDP 

2086 


2087 


IBM Personal Computer Assembler 
Victor V86P Hard Disk Controller BIOS (2793VG.10010688) 


2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 


ops3 
0D83 
OD88 


oDsD 
OD8D 
oD90 
oD93 


oD95 
oD95 
op98 
OD9D 


OD9E 
OD9E 
ODA1 
ODA3 


ODAS 
ODAS 
ODA6 


ODA9 
ODAC 
ODAE 
ODB1 


ODB3 
ODB3 
ODB6 
ODB7 
ODB8& 
ODBB 
ODBE 
opco 
opc2 
opc3 
opcé 
opc9 
ODCB 


ODCD 
opcD 
ODDO 
ODD3 
ODD6 
ODD7 
ODD8s 
ODDA 
ODDB 
ODDE 
ODE3 


ODES 
ODEA 


ODEC 
ODF1 


ODF3 
ODF3 
ODF4 


ODF4 
ODF4 
ODF5 
ODF6 
ODF7 
ODF8 
ODF9 
ODFA 
ODFB 


C6 06 0442 R OC 
80 26 0443 R 00 


E8 OF39 R 
E8 OEFC R 
73 09 


E8 OD61 R 
C6 06 0474 R 07 
c3 


E8 OF45 R 
73 02 
EB FO 


06 
E8 1139 R 


E8 101E R 
8B DF 

BI 0008 
33 F6 


E8 OF45 R 
56 

53 

BB ODF4 R 
2E: 8A 18 
32 FF 

8B F3 

5B 

26: 8A 00 
83 FE 02 
75 02 

BO 02 


BA 0320 

E8 103A R 

E8 1137 R 

5E 

46 

EO D9 

07 

E8 OF6F R 

80 3E 0474 R 00 
75 OE 


F6 06 0443 R 20 
75 07 


C6 06 0443 R 20 
EB 9A 


c3 


o1 
00 
02 
04 
03 
06 
05 
07 


09H 
reset 


Oo 2 
le; 
Not 
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; Load disk geometry to the controller. 
7, This is done in response to INT13H op 
; ("Initialize Disk Table"), but also on 
¥ and when dealing with error conditions 
i Note that this forces the head count t: 
; regardless of what’s in the INT14H tab. 
i which happens to have head count of 4. 
F sure why and the controller seems to h 


accepts heads over 2 anyways. 





appily 





INITIALIZE_DISK_TABLE 
mov 
and 


PROC NEAR 


START_INIT_DRV_PARM_COMMAND : 


call SELECT_BUSY_FOR_COMMANI 
call WRITE_COMMAND_BUFFER 
jnb short COMMAND_ISSUED_S' 


BAD_TABLE_ERROR_RETURN: 


call MASTER_RESET 
mov BDA_LAST_OP_STATUS, 
ret 


COMMAND_ISSUED_SUCCESS: 


BDA_CONTROLLER_DATA_BUFFER_00, 
BDA_CONTROLLER_DATA_BUFFER_01, 


ID 


SUCCESS. 


OP_OC_INIT_DRV_PARM 


00h 7 


call WAIT_FOR_BYTE_READY 

jnb short PROCEED_WRITING_DRIVE_PARAMS 

jmp short BAD_TABLE_ERROR_RETURN 
PROCEED_WRITING_DRIVE_PARAMS : 

push es 

call ZERO_DS 

ASSUME ds: ZEROSEG 

call DRIVE_PARAM_TO_DI 

mov bx, di 

mov cx, 8 

xor at). #2 


WRITE_DRIVE_PARAM_BYTE: 


Start with the 
first drive 


INT13H_STATUS_07_BAD_DISK_PARAM_TABLE 


Eight drive params bytes 


Read offset from the table 


Read data from drive table 
Offset 2 is head number 


Force head number to two. 


Were we configuring 
the second drive? 


Proceed with the 


call WAIT_FOR_BYTE_READY 

push si 

push bx 

mov bx, offset DATA_FROM_INT41H_ OFFSETS 

mov bl, cs: [bx+si] ¥ 

xor bh, bh 

mov si, bx 

pop bx 

mov al, es: [bx+si] ; 

cmp ter 2 

jne short OFFSET_NOT_TWO 

mov el; 2 F 

; WHY? 

OFFSET_NOT_TWO: 

mov dx, IO_PORT_320_DATA 

call DO_NOTHING 

call OUTB_DX_AL 

pop si 

inc si 

loopne WRITE_DRIVE_PARAM_BYTE 

pop es 

call HANDLE_COMMAND_RESPONSE 

cmp BDA_LAST_OP_STATUS, INT13H_STATUS_00_NO_ERROR 

jne short DONE_INITIALIZING_DISK_TABLE 

test BDA_CONTROLLER_DATA_BUFFER_01, 20h ; 

jne short DONE_INITIALIZING_DISK_TABLE ; 

mov BDA_CONTROLLER_DATA_BUFFER_01, 20h ; 

jmp short START_INIT_DRV_PARM_COMMAND ; 


DONE_INITIALIZING_DISK_TABLE: 
ret 
INITIALIZE_DISK_TABLE 


ENDP 






Mapping from INT41H format to what the 
; controller command OCH ("Init drive 
; parameters") expects. It essientially 


¥ flips endianness of WORD values. 


just 





DATA_FROM_INT41H_ OFFSETS: 


DB : 7; Max 
DB 0 7; Max 
DB 2 ; Max 
DB 4 ; RPC 
DB 3 ; RPC 
DB 6 ; WeC 
DB 5 ; WeC 
DB 7 ; Ecc 


cyls Hi 
cyls Lo 
heads 
Hi 

Lo 

Hi 

Lo 

Len 


second drive. 
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2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 


ODEFC 
ODFC 
ODFF 
OEO2 
0E03 
OE04 


OE04 
OE04 
OE09 
OEOB 
OEOC 


OEOC 
OEOC 
OEOF 
OE11 
0E12 
0E13 
0E15 
OE17 
0E19 
OE1C 
OE1E 
OE1F 
OE22 
OE24 
OE26 
OE26 
OE2B 


OE2C 
OE2C 
OE2E 
0E31 
0E33 
0E35 
0E35 
0E39 


0E3B 
OE3C 
OE3F 
OE41 
0E43 


OE45 
OE46 
OE47 
OE49 
OE4B 
OE4D 
OE4F 
OE51 
OE54 
OE57 
OE58 
OE5A 
OE5B 
OE5D 
OE60 


OE61 
OE64 
OE66 
OE69 
OE6A 
OE6C 


OE6D 
OE6E 
0E70 
0E73 
OE76 


OE79 
OE79 
OE7C 
OE7F 
OE80 
OE85 
OE86 
OE88 
OE8B 
OE90 
OE91 
OE91 
OE94 
OE96 
OE98 
OE9A 
OEIA 
OE9D 
OE9E 


80 
80 
F5 
c3 


cé 
EB 
90 


E8& 
73 
06 
58 
Bl 
D3 
03 
BO 
2B 
91 
E8& 
3B 
73 


cé 
c3 


BO 
E8& 
73 
BO 


38 
77 


FA 
E8& 
E6 
EB 
E6 


06 
58 
8B 
Bl 
D2 
D3 
03 
80 
BA 
EE 
86 
EE 
86 
BA 
EE 


E8& 
8B 
BA 
EE 
86 
EE 


FB 
BO 
BA 
E8& 
E8& 


E8& 
E8& 
9c 
80 
9D 
73 
E8& 
cé 
c3 


E8& 
73 
BO 
E6 


E8& 
c3 


EA 80 
FA 02 


06 0442 R 1B 
o1 


OE9SE R 
68 


04 
EO 
c3 
FEFF 
cs 


OED2 R 
c1 
06 


06 0474 R 09 


80 
OEEA R 
02 
TE 


06 0446 R 
EB 


OEBD R 
0B 
00 
oc 


cs 
04 
ED 
EO 
c3 
D5 00 
0006 


c4 


cs 
0082 


OED2 R 
c1 
0007 


EO 


o1 
0323 
103A R 
1137 R 


OF39 R 
OEFC R 


26 0447 R 3F 


09 
0D83 R 
06 0474 R 80 


OE9E R 
04 
03 
OA 


OF6F R 


CHECK_VALID_DISK_NUMBER PROC NEAR 


sub dl, 80h 
cmp dl, 2 
come 

ret 


CHECK_VALID_DISK_NUMBER ENDP 





UNUSED_1B PROC NEAR 
mov BDA_CONTROLLER_DATA_BUFFER_00, 1Bh 
jmp short DO_COMMAND 
nop 
UNUSED_1B ENDP 
¥ This is the command submission routine 
; It sets up DMA if necessary, submits the 
. command, reads the response and deals with 
¥ the error sense if necessary. 
DO_COMMAND PROC NEAR 
call CHECK_COMMAND_USES_DMA 
jne short ISSUE_THE_COMMAND ; Just issue it, no DMA 
push es 
pop ax 
mov Gly.» 
shl ee, <1 
add ax, bx 
mov cx, OFFFFh ; Maximum ISA DMA length -- 64K 
sub cx, ax 
xchg ax, cx 
call SET_DATA_LENGTH 
cmp ax, Cx 
jnb short DMA_ADDRESS_FINE 
BAD_DMA: 
mov BDA_LAST_OP_STATUS, INT13H_STATUS_09_DMA_ACROSS_64K 
ret 
DMA_ADDRESS_FINE: 
mov al, 128 
call NOT_A_LONG_COMMAND 
jnb short CONFIGURE_DMA 
mov al, 127 
CONF IGURE_DMA: 
cmp BDA_CONTROLLER_DATA_BUFFER_04, al 
ja short BAD_DMA 
cli 
call SELECT_DMA_MODE ; IN or OUT 
out OBh, al ; Set DMA mode 
jmp short $+2 
out OCh, al ; Clear DMA counter 
push es 
pop ax 
mov cx, ax 
mov Ch, * 
shr ch, cl 
shl ax, cl 
add ax, bx 
adc ch, 0 
mov dx, 6 
out dx, al ; DMA base bits 0-7 
xchg al, ah 
out dx, al ; DMA base bits 8-15 
xchg al, ch 
mov dx, 82h 7; Page register 
out dx, al ; DMA base bits 16-23 
call SET_DATA_LENGTH 
mov ax, Cx 
mov dx, 7 
out dx, al ; Word count low 
xchg ah, al 
out dx, al ; Word count high 
sti 
mov al, 1 ; IRQEN=0 DMAEN=1 -- Enable DMA 
mov dx, IO_PORT_323_DMA_IRQ 
call DO_NOTHING 
call OUTB_DX_AL 
ISSUE_THE_COMMAND : 
call SELECT_BUSY_FOR_COMMAND 
call WRITE_COMMAND_BUFFER 
pushf 
and BDA_CONTROLLER_DATA_BUFFER_05, 3Fh 
popf 
jnb short COMMAND_REQUIRES_RESPONSE 
call INITIALIZE_DISK_TABLE 
mov BDA_LAST_OP_STATUS, INT13H_STATUS_80_TIMEOUT 
ret 
COMMAND_REQUIRES_RESPONSE: 
call CHECK_COMMAND_USES_DMA 
jnb short READ_RESPONSE 
mov al, 011b ; Unmask DRQ3 
out OAh, al 


READ_RESPONSE: 
call HANDLE_COMMAND_RESPONSE 
ret 

DO_COMMAND ENDP 
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2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 


OEIE 
OE9E 
OESF 
OEAO 
OEA1L 
OEA4 
OEA7 
OEA8& 
OEAB 
OEAB 
OEAE 
OEBO 
OEB1 
OEB3 
OEB4 
OEB5 
OEB6 
OEB7 
OEBS 
OEB8 
OEB9 
OEBA 
OEBB 
OEBC 
OEBD 


OEBD 
OEBD 
OECO 
OEC2 
OEC4 
OEC6 
OEC8 
OECA 
OECC 
OECC 
OECE 
OECF 
OECF 
OED1 
OED2 


OED2 
OED2 
OED3 
OED6 
OED9 
OEDB 
OEDE 
OEDE 
OEEO 
OEE3 
OEES 
OEE6 
OEE8 
OEEQ 
OEEA 


OEEA 
OEEA 
OEEF 
OEF1 
OEF1 
OEF2 
OEF3 
OEF3 
OEF8 
OEFA 
OEFB 
OEFC 


56 
51 
50 
BE 
BO 
90 
AO 


2E: 


74 
46 
E2 
58 
59 
5E 
F8& 
c3 


58 
59 
5E 
F9 
c3 


AO 
3c 
74 
3c 
74 
3c 
74 


BO 
c3 


BO 
c3 


50 
BO 
E8& 
72 
BO 


32 
AO 
F7 
48 
8B 
58 
c3 


80 
75 


F9 
c3 


80 
74 
F8 
c3 


1224 R 
0006 


0442 R 


3A 04 


08 


Fs 


0442 R 


08 
0B 
OE 
07 
E5 
03 


4B 


47 


0206 
OEEA R 


03 


0200 


E4 


0446 R 


El 


cs 


3E 
02 


3E 
F7 


0442 R ES 


0442 R E6 


PAGE 
; Sets carry if the command requires a DMA 
r transfer for the data 


CHECK_COMMAND_USES_DMA PROC NEAR 


push si 

push cx 

push ax 

mov si, offset DMA_COMMAND_TABLE 

mov cx, 6 

nop 

mov al, BDA_CONTROLLER_DATA_BUFFER_00 
CHECK_DMA_COMMAND_TABLE_ENTRY: 

cmp al, cs: [si] 

je short COMMAND_USES_DMA 

inc si 

loop CHECK_DMA_COMMAND_TABLE_ENTRY 

pop ax 

pop cx 

pop si 

cle 

ret 
COMMAND_USES_DMA: 

pop ax 

pop cx 

pop si 

stc 

ret 


CHECK_COMMAND_USES_DMA ENDP 


FH Sets AL to DMA mode byte appropriate for 
; given command, depending on the direction 
3 of the transfer necessary. 
SELECT_DMA_MODE PROC NEAR 
mov al, BDA_CONTROLLER_DATA_BUFFER_00 
cmp al, OP_08_READ_SECTORS 
je short READ_COMMAND 
cmp al, OP_0OE_READ_SECTOR_BUFFER 
je short READ_COMMAND 
cmp al, OP_E5_READ_LONG 
je short READ_COMMAND 
WRITE_COMMAND : 
mov al, DRQ3_WRITE 
ret 
READ_COMMAND : 
mov al, DRQ3_READ 
ret 
SELECT_DMA_MODE ENDP 
Fj Sets CX to 518 if the command is 
; Read/Write Long, 512 otherwise. 
SET_DATA_LENGTH PROC NEAR 
push ax 
mov cx, 518 ; Long command length: 
call NOT_A_LONG_COMMAND 
je short DATA_LENGTH_SET 
mov ex, B12 ; Regular command length 
DATA_LENGTH_SET: 
xor ah, ah 
mov al, BDA_CONTROLLER_DATA_BUFFER_04 
mul cx 
dec ax 
mov cx, ax 
pop ax 
ret 
SET_DATA_LENGTH ENDP 





Fs Sets carry if the command is 
A Read Long or Write Long 
NOT_A_LONG_COMMAND PROC NEAR 
cmp BDA_CONTROLLER_DATA_BUFFER_00, OP_E5_READ_LONG 
jne short NOT_READ_LONG 
READ_LONG_OR_WRITE_LONG: 
stc 
ret 
NOT_READ_LONG: 
cmp BDA_CONTROLLER_DATA_BUFFER_00, OP_E6_WRITE_LONG 
je short READ_LONG_OR_WRITE_LONG 
cle 
ret 
NOT_A_LONG_COMMAND ENDP 


512 + 6 (ecc?) 
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2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 


OEFC 
OEFC 
OEFF 
OFO1 
OFO2 
OFO2 
OFOS5 
OFO7 
OFOA 
OFOD 
OFOD 
OFOF 
OF10 
OF11 
OF13 
OF16 
OF18 
OF19 


OF19 
OF19 
OF1C 
OF1F 
OF22 
OF22 
OF25 


OF27 


OF29 
OF2B 
OF2C 
OF2D 
OF2D 
OF2F 
OF34 
OF37 
OF38 
OF39 


OF39 
OF39 
OF3C 
OF3F 
OF41 
OF44 
OF45 


OF45 
OF45 
OF46 
OF47 
OF48 


OF4B 
OF4B 
OF4c 
OF4F 
OF52 
OF55 
OF55 
OF58 
OF5A 
OF5C 
OF5E 
OFS5F 


OF61 
OF66 
OF67 
OF69 


OF6A 
OF6A 
OF6B 
OF6B 
OF6C 
OF6D 
OF6E 
OF6F 


E8& 
73 
c3 


BE 
33 
BA 
E8& 


8A 
EE 
46 
FE 
80 
75 
c3 


BO 
BA 
E8& 


E8& 
24 


3c 


75 
F8& 
c3 


E2 
cé 
E8& 
F9 
c3 


BA 
E8& 
BO 
E8& 
c3 


51 
52 
50 
BO 


51 
BO 
BA 
E8& 


E8& 
24 
75 
E2 
59 
E2 


cé 
F9 
EB 
90 


59 


58 
5A 
59 
c3 


OF19 R 
o1 


0442 R 
co 
0320 
103A R 


04 


c1 
F9 06 
F5 


FEFF 
0321 
103A R 


1135 R 
oD 


oD 


02 


F3 
06 0474 R 80 
0D61 R 


0322 
103A R 
o1 
1137 R 


001E 


FEFF 
0321 
103A R 


1135 R 
o1 


OE 
F7 


06 0474 R 80 


02 
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PAGE 
¥ Write the while 6-byte command buffer 
r Sets carry on failure (timeout) 
WRITE_COMMAND_BUFFER PROC NEAR 


Try Oxffff times 


BUSY=1 COMMANDO/DATA1=1 
INPUT1/OUTPUTO=0 REQ _READY=1 

The controller is ready to 
accept a command byte. 


BDA_LAST_OP_STATUS, INT13H_STATUS_80_TIMEOUT 


call WAIT_READY_FOR_COMMAND 
jnb short READY_WAIT_SUCCESSFUL 
ret 
READY_WAIT_SUCCESSFUL: 
mov si, offset BDA_CONTROLLER_DATA_BUFFER_00 
xor cx, Cx 
mov dx, IO_PORT_320_DATA 
call DO_NOTHING 
WRITE_COMMAND_BYTE: 
mov al, [si] 
out dx, al 
inc si 
inc cl 
cmp cl, 6 
jne short WRITE_COMMAND_BYTE 
ret 
WRITE_COMMAND_BUFFER ENDP 
¥ This waits until the controller is ready 
; to accept a command byte. 
‘3 Sets carry on failure (timeout) 
WAIT_READY_FOR_COMMAND PROC NEAR 
mov cx, OFFFFh 
mov dx, IO_PORT_321_READ_STATUS_WRITE_RESET 
call DO_NOTHING 
SEE_IF_READY: 
call INB_AL_DX 
and al, 1101b 
cmp al, 1101b 
jne short NOT_READY_YET 
cle 
ret 
NOT_READY_YET: 
loop SEE_IF_READY 
mov 
call MASTER_RESET 
stc 
ret 


WAIT_READY_FOR_COMMAND 


F Issue a select 
; This has to be 
] The controller 
; in status byte. 


ENDP 


signal. 
done to start a command. 
responds by enabling BUSY 


SELECT_BUSY_FOR_COMMAND PROC NEAR 
dx, IO_PORT_322_READ_CONFIG_WRITE_SELECT 


mov 
call 
mov 
call 
ret 


DO_NOTHING 
al, 1 
OUTB_DX_AL 


SELECT_BUSY_FOR_COMMAND ENDP 


; Wait until a byte can be read 
7 from the contoller 
3 Sets carry on failure (timeout) 


Value is ignored 





WAIT_FOR_BYTE_READY 
push 
push 
push 
mov 


OUTER_CHECK_READY: 
push 
mov 
mov 
call 

INNER_CHECK_READY: 
call 
and 
jnz 
loop 
pop 
loop 


mov 
stc 
jmp 
nop 


SUCCESSFULLY_READY: 
pop 
DONE_WAITING: 
pop 
pop 
pop 
ret 
WAIT_FOR_BYTE_READY 


30 x Oxffff times... 


...30 x Oxffff times 


PROC NEAR 
cx 

dx 

ax 

ex, 30 

cx 

cx, OFFFFh 
dx, IO_PORT_321_READ_STATUS_WRITE_RESET 
DO_NOTHING 
INB_AL_DX 
yk eee & 


short SUCCESSFULLY_READY 
INNER_CHECK_READY 

cx 

OUTER_CHECK_READY 


REQUEST=1 


BDA_LAST_OP_STATUS, INT13H_STATUS_80_TIMEOUT 


short DONE_WAITING 


cx 


ax 


cx 


ENDP 
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2510 PAGE 
2511 a a ce oe 
2512 F Wait for command to finish with an 
2513 7 appropriate timeout. Then check status byte 
2514 7; and possibly handle an error. Disable DMA 
2515 ; on disk and DMA controllers afterwards. 
2516 (Se 
2517 
2518 OF6F HANDLE_COMMAND_RESPONSE PROC NEAR 
2519 OF6F 06 push es 
2520 OF70 E8 1139 R call ZERO_DS 
2521 ASSUME ds: ZEROSEG 
2522 OF73 E8 101E R call DRIVE_PARAM_TO_DI 
2523 OF76 26: 8A 4D OA mov cl, es: [di+(TIMEOUT_FMT — INT41H_DATA) ] 
2524 OF7A 80 3E 0442 R 04 cmp BDA_CONTROLLER_DATA_BUFFER_00, OP_04_FORMAT_DRIVE 
2525 OF7F 74 OF je short CL_TIMEOUT_SET 
2526 OF81 26: 8A 4D 0B mov cl, es: [di+(TIMEOUT_CHK -— INT41H_DATA) ] 
2527 OF85 80 3E 0442 R E3 cmp BDA_CONTROLLER_DATA_BUFFER_00, OP_E3_DRIVE_DIAG 
2528 OF8A 74 04 je short CL_TIMEOUT_SET 
2529 OF8C 26: 8A 4D 09 mov cl, es: [di+(TIMEOUT_STD — INT41H_DATA) ] 
2530 OF90 CL_TIMEOUT_SET: 
2531 OF90 07 pop es 
2532 
2533 OF91 32 ED xor ch, ch 
2534 OF93 B8 0444 mov ax, 444h 
2535 OF96 F7 El mul cx 
2536 OF98 52 push dx 
2537 OF99 E8 1028 R call BDA_TIMER_TO_CX_DX 
2538 OF9C 03 DO add dx, ax 
2539 OF9E 83 D1 00 adc cx, 0 
2540 OFA1 5B pop bx 
2541 OFA2 03 CB add cx, bx 
2542 OFA4 8B D9 mov bx, cx 
2543 OFA6 8B C2 mov ax, dx 
2544 
2545 OFA8 CHECK_BYTE_READY_FOR_READ: 
2546 OFA8 50 push ax 
2547 OFAQ 53 push bx 
2548 OFAA BA 0321 mov dx, IO_PORT_321_READ_STATUS_WRITE_RESET 
2549 OFAD E8 103A R call DO_NOTHING 
2550 OFBO E8 1135 R call INB_AL_DX 
2551 OFB3 24 07 and al, 111b ; BUSY=0 CONTROLO/DATAI1=1 
2552 3 INPUT1/OUTPUTO=1 REQ _BYTE=1 
2553 OFB5 3C 07 cmp al, 111b ; Is data byte ready for 
2554 + input to host? 
2555 OFB7 75 05 jne short DATA_BYTE_NOT_READY 
2556 OFB9 5B pop bx 
2557 OFBA 58 pop ax 
2558 OFBB EB 13 jmp short WAIT_DONE 
2559 OFBD 90 nop 
2560 OFBE DATA_BYTE_NOT_READY: 
2561 OFBE E8 1028 R call BDA_TIMER_TO_CX_DX 
2562 OFC1 5B pop bx 
2563 OFC2 58 pop ax 
2564 OFC3 3B D9 cmp bx, cx 
2565 OFC5 77 El ja short CHECK_BYTE_READY_FOR_READ 
2566 OFC7 72 2C jb short TIMED_OUT 
2567 OFC9 3B C2 cmp ax, dx 
2568 OFCB 77 DB ja short CHECK_BYTE_READY_FOR_READ 
2569 OFCD EB 26 jmp short TIMED_OUT 
2570 OFCF 90 nop 
2571 OFDO WAIT_DONE: 
2572 OFDO BO 07 mov al, 111b ; Mask DRQ3 
2573 OFD2 E6 OA out OAh, al 
2574 
2575 OFD4 32 CO xor al, al ; Disable DMA and IRQ 
2576 OFD6 BA 0323 mov dx, IO_PORT_323_DMA_IRQ 
2577 OFD9 E8 103A R call DO_NOTHING 
2578 OFDC E8 1137 R call OUTB_DX_AL 
2579 
2580 OFDF BA 0320 mov dx, IO_PORT_320_DATA 
2581 OFE2 E8 103A R call DO_NOTHING 
2582 OFES5 E8 1135 R call INB_AL_DX ; Read the status byte 
2583 OFE8 24 02 and al, 2 
2584 OFEA A2 0474 R mov BDA_LAST_OP_STATUS, al 
2585 OFED 3C 00 cmp al, 0 
2586 OFEF 74 03 je short DONE_HANDLING_RESPONSE ; No error 
2587 OFF1 E8 103B R call READ_ERROR_SENSE ; Error encountered, read sense 
2588 OFF4 DONE_HANDLING_RESPONSE: 
2589 OFF4 C3 ret 
2590 
2591 OFFS TIMED_OUT: 
2592 OFF5 BO 07 mov al, 111b ; Mask DRQ3 
2593 OFF7 E6 OA out OAh, al 
2594 
2595 OFF9 32 CO xor al, al ; Disable DMA and IRQ 
2596 OFFB BA 0323 mov dx, IO_PORT_323_DMA_IRQ 
2597 OFFE E8 103A R call DO_NOTHING 
2598 1001 E8 1137 R call OUTB_DX_AL 
2599 
2600 1004 80 3E 0442 R OC cmp BDA_CONTROLLER_DATA_BUFFER_00, OP_OC_INIT_DRV_PARM 
2601 1009 74 OA je short RETURN_ERROR_BAD_DISK_TABLE 
2602 100B E8 OCE7 R call RESET_CONTROLLER 
2603 100E C6 06 0474 R 80 mov BDA_LAST_OP_STATUS, INT13H_STATUS_80_TIMEOUT 
2604 1013 EB 08 jmp short FINISHED_HANDLING_RESPONSE 
2605 
2606 1015 RETURN_ERROR_BAD_DISK_TABLE: 
2607 1015 E8 OD61 R call MASTER_RESET 
2608 1018 C6 06 0474 R 07 mov BDA_LAST_OP_STATUS, INT13H_STATUS_07_BAD_DISK_PARAM_TABLE 
2609 
2610 101D FINISHED_HANDLING_RESPONSE: 
2611 101D C3 ret 
2612 101E HANDLE_COMMAND_RESPONSE ENDP 
2613 


2614 
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2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 


101E 
101E 
101F 


1022 
1026 
1027 
1028 


1028 
1028 
1029 
102A 


102D 
102E 
1032 
1036 
1037 
1038 
1039 
103A 


103A 
103A 
103B 


1E 
E8& 


c4 
1F 
c3 


50 
1E 
E8& 


FA 
8B 
8B 
FB 
1F 
58 
c3 


c3 


1141 R 


3E 0104 R 


1139 R 


16 046C R 
OE 046E R 


PAGE 
; Just gets the pointer to INT41H. 
DRIVE_PARAM_TO_DI PROC NEAR 
push ds 
call ZERO_DS_ALT 
ASSUME ds: ZEROSEG 
les di, dword ptr INT41H_ OFFSET 
pop ds 
ret 
DRIVE_PARAM_TO_DI ENDP 
Read the timer. Used for delays. 
BDA_TIMER_TO_CX_DX PROC NEAR 
push ax 
push ds 
call ZERO_DS 
ASSUME ds: ZEROSEG 
cli 
mov dx, BDA_TIMER_COUNTER_LO 
mov cx, BDA_TIMER_COUNTER_HI 
sti 
pop ds 
pop ax 
ret 
BDA_TIMER_TO_CX_DX ENDP 
; God knows why does this exist. Perhaps it 
i is makes it easier to hook a tracing routine. 
DO_NOTHING PROC NEAR 
ret 
DO_NOTHING ENDP 
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2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 


103B 
103B 


103E 
1043 
1046 
1049 
104B 
104E 


1050 
1052 
1055 
1058 
105B 
105B 
105E 
1060 
1063 
1067 
1068 
106A 
106D 


106F 
1072 
1074 
1077 
107A 
107D 
107F 
1081 
1081 
1084 
1089 


108A 
108A 
108E 
1090 
1092 
1094 
1097 
109A 
109D 
109F 
10A3 
10A6 
10A8 
10AC 
10AF 
10B1 
10B5 
10B5 
10B8 
10B9 
10BB 
10BD 
10c2 
10c3 
10c5 
10CA 
10CB 
10CB 
10cD 
10CF 
10D2 
10D5 
10D9 
10DCc 
10DF 
10E1 
10E6 
10E9 
10EC 
10EE 
10EE 
10F1 
10F2 
10F4 


10F5 
10F5 
10F8 
10FA 
10FD 
1100 
1103 
1104 
1107 
1109 
110A 


110c 
110c 
110F 
1110 
1110 
1111 


E8& 


cé 
E8& 
E8& 
72 
E8& 
72 


33 
BE 
BA 
E8& 


E8& 
72 
E8& 
88 
46 
FE 
80 
75 


E8& 
72 
BA 
E8& 
E8& 
24 
74 


E8& 
cé 
c3 


8A 
8A 
Bl 
D2 
80 
BE 
80 
74 
81 
80 
74 
81 
80 
74 
81 


80 
53 
8A 
32 


2E: 


5B 
72 
cé 
c3 


86 
32 


2E: 


8A 
80 
80 
a5 
cé 
E8& 
E8& 
73 


E8& 
F9 
EB 
90 


E8& 
72 
BA 
E8& 
E8& 
50 
E8& 
73 
58 
EB 


E8& 
58 


c3 


1139 R 


06 0442 R 03 
OF39 R 

OEFC R 

36 

OF45 R 

31 


co 
0000 
0320 
103A R 


OF45 R 

21 

1135 R 

84 0442 R 


c1 
F9 04 
EC 


OF45 R 
oD 
0320 
103A R 
1135 R 
02 

09 


OCE7 R 
06 0474 R FF 


1E 0442 R 
FB 

04 

EB 

E3 03 
1111 R 
FB 00 
16 

cé6é 000A 
FB 01 
oD 

cé 0010 
FB 02 
04 

cé 0004 


E7 OF 


c7 
FF 
3A 87 1131 R 


06 
06 0474 R BB 


FB 
FF 

8A 00 
0474 R 

OE 0442 R 
El 1F 
F9 18 

2F 

06 0442 R OD 
OF39 R 
OEFC R 

07 


OCE7 R 


1c 


OF45 R 
F4 
0320 
103A R 
1135 R 


OF45 R 
03 


E2 


1135 R 


PAGE 

F This routine is called when a command 

i returns an error status. 

; It reads in the error details from controler 
; and tries to figure out the proper INT13H 

+ error code. 


READ_ERROR_SENSE 
call 
ASSUME 
mov 
call 
call 
je 
call 
je 


xor 
mov 
mov 
call 

READ_SENSE_BYTE: 
call 
je 
call 
mov 
inc 
inc 


jne 


call 
je 
mov 
call 
call 
and 
je 
SENSE_FAILED: 

call 
mov 
ret 


PROC NEAR 
ZERO_DS 
ds : ZEROSEG 


BDA_CONTROLLER_DATA_BUFFER_00, 


SELECT_BUSY_FOR_COMMAND 
WRITE_COMMAND_BUFFER 
short SENSE_FAILED 
WAIT_FOR_BYTE_READY 
short SENSE_FAILED 


cx, Cx 
ai, ‘8 

dx, IO_PORT_320_DATA 
DO_NOTHING 


WAIT_FOR_BYTE_READY 
short SENSE_FAILED 
INB_AL_DX 


OP_03_READ_SENSE 


BDA_CONTROLLER_DATA_BUFFER_00[si], al 


si 

cl 

Gi; 4 

short READ_SENSE_BYTE 


WAIT_FOR_BYTE_READY 
short SENSE_FAILED 
dx, IO_PORT_320_DATA 
DO_NOTHING 

INB_AL_DX 

a1, 2 


short XLATE_SENSE_TO_INT13H_STATUS 


RESET_CONTROLLER 


BDA_LAST_OP_STATUS, INT13H_STATUS_FF_SENSE_OP_FAILED 


XLATE_SENSE_TO_INT13H_STATUS: 
bl, BDA_CONTROLLER_DATA_BUFFER_00 


mov 
mov 
mov 
shr 
and 
mov 
cmp 
je 
add 
cmp 
je 
add 
cmp 
je 
add 
DO_XLATE_SENSE: 
and 
push 
mov 
xor 
cmp 
pop 
jb 
mov 
ret 
XLATE_SUCCESSFUL: 
xchg 
xor 
mov 
mov 
mov 
and 
cmp 
jne 
mov 
call 
call 
jnb 
ERROR_READING_SENSE: 
call 
stc 
jmp 
nop 


READ_ECC_COMMAND_OKAY: 
call 
je 
mov 
call 
call 
push 
call 
jnb 
pop 
jmp 

READ_ECC_READY: 
call 
pop 

DONE_READING_SENSE: 
ret 

READ_ERROR_SENSE 


bh, bl 
el, 4 
bl, cl 
bl, 3 
si, offset SENSE_ERR_Ox 
bl, 0 


short DO_XLATE_SENSE 


si, SENSE_ERR_1x — SENSE_ERR_0x 


bl, 1 
short DO_XLATE_SENSE 


si, SENSE_ERR_2x — SENSE_ERR_1x 


bl, 2 
short DO_XLATE_SENSE 


si, SENSE_ERR_3x — SENSE_ERR_2x 


bh, OFh 

bx 

al, bh 

bh, bh 

al, cs:SENSE_ERR_HI [bx] 
bx 

short XLATE_SUCCESSFUL 


BDA_LAST_OP_STATUS, INT13H_STATUS_BB_UNDEFINED_ERROR 


bh, bl 

bh, bh 

al, cs: [bx+si] 
BDA_LAST_OP_STATUS, al 


cl, BDA_CONTROLLER_DATA_BUFFER_00 


cl, 1Fh 
cl, 18h 
short DONE_READING_SENSE 


BDA_CONTROLLER_DATA_BUFFER_00, 


SELECT_BUSY_FOR_COMMAND 
WRITE_COMMAND_BUFFER 
short READ_ECC_COMMAND_OKAY 


RESET_CONTROLLER 


short DONE_READING_SENSE 


WAIT_FOR_BYTE_READY 
short ERROR_READING_SENSE 
dx, IO_PORT_320_DATA 
DO_NOTHING 

INB_AL_DX 

ax 

WAIT_FOR_BYTE_READY 

short READ_ECC_READY 

ax 

short ERROR_READING_SENSE 


INB_AL_DX 
ax 


ENDP 


; 018H 


Correctable ECC error 


OP_OD_READ_ECC_BURST_ERROR_LEN 
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2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 


1111 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
111A 
111B 
111B 
111¢c 
111D 
111E 
111F 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
112A 
112B 
112B 
112c 
112D 
112E 
112F 
112F 
1130 
1131 


1131 
1132 
1133 
1134 


1135 
1135 
1136 
1137 


1137 
1137 
1138 
1139 


1139 
1139 
113A 
113D 
113E 
113F 
1140 
1141 


1141 
1141 
1142 
1144 
1146 
1147 
1148 


00 
20 
40 
20 
80 
BB 
20 
BB 
40 
27 


10 
10 
02 
02 
04 
40 
20 
29 
Lt 
OB 
21 
BB 
22 
23 
24 
25 


o1 
02 
o1 
04 


20 
20 


OA 
10 
04 
02 


EC 
c3 


EE 
c3 





50 
33 CO 
8E D8 
58 
c3 
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Sparse table for mapping senser error byte 
from the controller to INT13H error code 


SENSE_ERR_0x: 


DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 


SENSE_ERR_1x: 


DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 


SENSE_ERR_2x: 


DB 
DB 
DB 
DB 


SENSE_ERR_3x: 


DB 
DB 


SENSE_ERR_END: 


SENSE_ERR_HI DB 


DB 
DB 
DB 


I/O routines. 


INT13H_STATUS_00_NO_ERROR 
INT13H_STATUS_20_CTRLR_ERROR 
INT13H_STATUS_40_SEEK_FAILURE 
INT13H_STATUS_20_CTRLR_ERROR 
INT13H_STATUS_80_TIMEOUT 
INT13H_STATUS_BB_UNDEFINED_ERROR 
INT13H_STATUS_20_CTRLR_ERROR 
INT13H_STATUS_BB_UNDEFINED_ERROR 
INT13H_STATUS_40_SEEK_FAILURE 
INT13H_STATUS_27_NEED_RECALIBRATE 


INT13H_STATUS_10_ECC_ERROR 
INT13H_STATUS_10_ECC_ERROR 
INT13H_STATUS_02_ADDR_MARK_NOT_FOUND 
INT13H_STATUS_02_ADDR_MARK_NOT_FOUND 
INT13H_STATUS_04_SECTOR_NOT_FOUND 
INT13H_STATUS_40_SEEK_FAILURE 
INT13H_STATUS_20_CTRLR_ERROR 

29h 

INT13H_STATUS_11_ECC_FIXED 
INT13H_STATUS_OB_BAD_CYLINDER 

21h 

INT13H_STATUS_BB_UNDEFINED_ERROR 

22h 

23h 

24h 

25h 


INT13H_STATUS_01_BAD_COMMAND 
INT13H_STATUS_02_ADDR_MARK_NOT_FOUND 
INT13H_STATUS_01_BAD_COMMAND 
INT13H_STATUS_04_SECTOR_NOT_FOUND 


INT13H_STATUS_20_CTRLR_ERROR 
INT13H_STATUS_20_CTRLR_ERROR 


SENSE_ERR_1x — SENSE_ERR_0x 
SENSE_ERR_2x — SENSE_ERR_1x 
SENSE_ERR_3x — SENSE_ERR_2x 
SENSE_ERR_END — SENSE_ERR_3x 


Separate subroutines seem to make little 
sense given the call insn is larger than 
IN/OUT alone. Perhaps this is useful for 
hooking up trace routines or something... 


INB_AL_DX 
in 
ret 

INB_AL_DX 

OUTB_DX_AL 
out 
ret 

OUTB_DX_AL 


ZERO_DS 


ZERO_DS 


PROC NEAR 
al, dx 


ENDP 


PROC NEAR 
dx, al 


ENDP 


Two different ways to set DS to zero 


Not sure why.. 


push 
mov 
push 
pop 
pop 
ret 


ZERO_DS_ALT 


push 
xor 
mov 
pop 
ret 


ZERO_DS_ALT 


PROC NEAR 
ax 

ax, ZEROSEG 
ax 

ds 

ax 


ENDP 


PROC NEAR 
ax 

ax, ax 
ds, ax 

ax 


ENDP 


00 
o1 
02 
03 
04 
05 
06 
07 
08 
09 


10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
1A 
1B 
ic 
1D 
1E 
1D 


20 
21 
22 
23 


30 
31 
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2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 


1148 
1148 
114B 
114E 
1150 
1153 
1156 
1158 
1158 
115B 
115E 
115F 
1160 


1161 
1164 
1164 
1165 
1167 
1167 
116E 


1170 
1170 
1175 


1175 
1175 
1177 
1179 
117¢c 
117F 
117F 
1180 
1183 
1185 
1186 
1188 
118B 
118D 
118E 
1190 
1191 
1191 
1193 
1194 
1196 
1197 
1197 
119A 
119A 
119B 
119E 
11A1 
11A3 
11A4 
11A7 
11A9 
11AB 
11AC 
11ACc 
11AD 


11AD 


11AD 


11¢2 


11DD 


120E 


BA 
E8& 
73 
BA 
E8& 
73 


BE 
BO 
90 
OE 
1F 


E8& 


90 
EB 


26: 


75 


EA 


33 
8E 
BB 
BO 


51 
BS 
cD 
59 
73 
80 
75 
F9 
EB 
90 


E2 
F9 
EB 
90 


BO 


51 
BO 
B8& 
cD 
59 
80 
74 
E2 
F9 


c3 


20 
20 
69 
2E 
20 
48 
69 
6F 
72 
20 
72 
20 
69 
76 
20 
20 
719 
20 
oD 


0000 
1175 
20 
0080 
1175 
OF 


11AD 
0061 


OB3C 


FD 


81 3E 7DFE AA55 


E8& 


7c00 ---- R 


co 
co 


7c00 R 


0002 


0000 
13 


OF 
Fc 80 
04 


ic 


EC 


16 


0002 


0001 
0201 
13: 


FC 00 
03 
EF 


20 48 
64 69 
73 20 
OD OA 
20 53 
44 44 
74 63 
20 6F 
OD OA 
20 49 
74 20 
64 69 
6E 20 
65 20 
52 45 
74 68 
73°74 


OA 


61 
73 
6F 


65 
20 
68 
6E 


6E 
44 
73 
64 
61 
53 
65 
65 


72 
6B 
66 


74 
73 
20 
20 


73 
4F 
6B 
72 
6E 
45 
20 
6D 


64 
20 
66 


20 
77 
74 
6F 


65 
53 
20 
69 
64 
54 
53 
2E 


; Try the floppy 


; Try the hard drive 


offset STRING_HARD_DISK_IS_OFF 
7 strlen boot failed 


OAA55h 
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¥ OS Boot Sector load service (INT 19H) 
INT19H_HANDLER PROC NEAR 
mov dx, 0 
call READ_BOOT_SECTOR 
jnb short DO_THE BOOT 
mov dx, 80h 
call READ_BOOT_SECTOR 
jnb short CHECK_BOOT_SIGNATURE 
BOOT_FAILED: 
mov si, 
mov cx, 61h 
nop 
push cs 
pop ds 
ASSUME ds:ROM 
call PRINT_CX_CHARS_FROM_DS_ST 
INFINITE_LOOP : 
nop 
jmp short INFINITE_LOOP 
CHECK_BOOT_SIGNATURE: 
cmp word ptr es: 7DFEh, 
jne short BOOT_FAILED 
DO_THE_BOOT: 
jmp BOOT_SEC 
INT19H_HANDLER ENDP 


¥ Expects DX=disk 


READ_BOOT_SECTOR 
xor 
mov 
mov 
mov 

TRY_RESET: 
push 
mov 
int 
pop 
jnb 
cmp 
jne 
stc 
jmp 
nop 

RESET_ANOTHER: 
loop 
stc 
jmp 
nop 

RESET_SUCCESSFUL: 
mov 

TRY_READ_SECTOR: 
push 
mov 
mov 
int 
pop 
cmp 
je 
loop 
stc 


number 
; Sets carry on error 


PROC NEAR 

ax, ax 

es, ax 

bx, offset BOOT_SEC 
ox, 2 

cx 

ax, 0 

13h 


cx 
short RESET_SUCCESSFUL 
ah, 80h 

short RESET_ANOTHER 





; Target address 
; Number of attempts 


; Reset disk system 


short DONE_READING_BOOT_SECTOR 


TRY_RESET 


short DONE_READING_BOOT_SECTOR 


ex, 2 

cx 

cx, 0001h 
ax, 0201h 
13h 

cx 

ah, 0 


7; Two attempts 


; Track 0, sector 1 


7; 02h = 


; Check status 


short DONE_READING_BOOT_SECTOR 


TRY_READ_SECTOR 


DONE_READING_BOOT_SECTOR: 


ret 
READ_BOOT_SECTOR 


STRING_HARD_DISK_IS_OFF: 


DB 


DB 


DB 


STRING_CRLF DB 


ENDP 


"Hard disk is off.",0Dh,O0Ah 


"Set HDD switch to on or", 0ODh, 0OAh 


"Insert DOS disk in drive and RESET the System. 


ODh, OAh 


read, Olh sectors 
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2954 PAGE 

2955 

2956 1210 31 37 30 31 STRING_1701 DB "1701" 

2957 1214 2D 41 STRING_A DB ; Controller SRAM error 

2958 1216 2D 42 STRING_B DB Controller diags error 

2959 1218 2D 43 STRING_C DB Test ready timed out 

2960 121A 2D 44 STRING_D DB Recalibrate failed 

2961 121C 2D 45 STRING_E DB ; Reset failed 

2962 

2963 121E INT13H_TRIVIAL_OP_VECTOR: 

2964 121E 01 DB INT13H_OP_01_GET_DISK_STATUS ; INT13H services that 
2965 121F 0D70 R DW offset INT13H_01_GET_DISK_STATUS 7; do not require 
2966 1221 08 DB INT13H_OP_08_GET_DRIVE_PARAMS ; talking to the disk 
2967 1222 ODOC R DW offset INT13H_08_GET_DRIVE_PARAMS j; controller 
2968 

2969 1224 DMA_COMMAND_TABLE: 

2970 1224 08 DB OP_08_READ_SECTORS ; These are commands that 
2971 1225 OA DB OP_OA_WRITE_SECTORS ; transmit data using DMA 
2972 1226 E5 DB OP_E5_READ_LONG 

2973 1227 E6 DB OP_E6_WRITE_LONG 

2974 1228 OF DB OP_OE_READ_SECTOR_BUFFER 

2975 1229 OF DB OP_OF_WRITE_SECTOR_BUFFER 

2976 

2977 122A INT13H_OP_TO_COMMAND_BYTE: 

2978 122A 00 DB OP_00_TEST_DRIVE_READY ; 00h 

2979 122B 00 DB OP_00_TEST_DRIVE_READY ; Olh 

2980 122C 08 DB OP_08_READ_SECTORS 7 02h 

2981 122D OA DB OP_OA_WRITE_SECTORS ; 03h 

2982 122 05 DB OP_05_VERIFY_SECTORS ; 04h 

2983 122F 06 DB OP_06_FORMAT_TRACK 7; O5h 

2984 1230 07 DB OP_07_FORMAT_BAD_TRACK 7; 06h 

2985 1231 04 DB OP_04_FORMAT_DRIVE 7; O7h 

2986 1232 00 DB OP_00_TEST_DRIVE_READY 7; 08h 

2987 1233 0c DB OP_0C_INIT_DRV_PARM ; 09h 

2988 1234 E5 DB OP_E5_READ_LONG ; OAh 

2989 1235 E6 DB OP_E6_WRITE_LONG ; OBh 

2990 1236 OB DB OP_OB_SEEK 7; OCh 

2991 1237 00 DB OP_00_TEST_DRIVE_READY ; ODh 

2992 1238 OE DB OP_OE_READ_SECTOR_BUFFER ; OEh 

2993 1239 OF DB OP_OF_WRITE_SECTOR_BUFFER ; OFh 

2994 123A 00 DB OP_00_TEST_DRIVE_READY ; 10h 

2995 123B 01 DB OP_01_RECALIBRATE 7; 11h 

2996 123c EO DB OP_EO_SECTOR_BUFFER_DIAG ; 12h 

2997 123D E3 DB OP_E3_DRIVE_DIAG ; 13h 

2998 123E E4 DB OP_E4_CTRL_DIAG ; 14h 

2999 

3000 123F ODB1 [ PADDING DB ODBih dup (OFFh) 

3001 FF 

3002 ] 

3003 

3004 1FFO 32 37 39 33 56 47 VERSION_TAG DB "2793VG.10010688" 

3005 2E 31 30 30 31 30 

3006 36 38 38 

3007 1FFF 94 CHECKSUM DB 94h 

3008 

3009 2000 ROM ENDS 

3010 

3011 END 


; This has been disassembled and commented manually on 
; Sat Sep 11th 2021 in hope it will be useful to 

; somebody. When assembled, it matches the 

; Victor V86P Hard Drive Controller ROM versioned 

7; "2793VG.10010688" byte-for-byte. 


; Please note that it is not free software and is 
7; subject to copyright. 
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